DDDDDDDDDDDD EEEEEEEEEEEEEEE BBB8BBBB8BB8B UUU UUU GGGGGGGGGGGG 
DODDDDDDDDDD EEEEEEEEEEEEEEE BBB888BB8BBBB UUU UUU GGGGGGGGGGGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE B8BB8BB8BBEB UUU UUU GGGGGGGGGGGG 
DOD | DDD EEE BBB BBB UUU UU G 

DOD DDD EEE BBB BBB UUU UUU GGG 

DDD DDD EEE 888 BBB UUU UUU GGG 

DOD DOD EEE BBB BBB UUU UUU GGG 

DDD DOD EEE 888 BBB UUU UUU GGG 

DOD DDD EEE BBB BBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBBBBBB UUU UUU GGG 

DDD DDD EEEEEEEEEEEE BBBBBBBS8EEBB UUU UUU GGG 

DOD DDD EEEEEEEEEEEE BBBBBBBSBBBB UUU UUU GGG 

DOD DDD EEE BBB UUU UUU GGG GG6GGGGGGG 
DDD DDD EEE B88 BBB UUU UUU GGG 6G6G6G6GGGG6G 
DOD DDD EEE BBB BBB UUU UUU GGG 666666666 
DDD DDD EEE 888 BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DOD DDD EEE BBB BBB UUU UUU GGG GGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE B88B8BB8B888 UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDODDDDDD EEEEEEEEEEEEEEE BBSBBBB8BBBB UUUUUUUUUUUUUUU GGGGGGGGG 
DDDDDDDDDDDD EEEEEEEEEEEEEEE BB8B8BBBBBBBB UUUUUUUUUUUUUUU GGGGGGGGG 


H § 
— **F 1LE®*1D*®*DBGNSHOW 
DDDDDDDD BBBBBBBB GGGGGGGG NN NN SSSSSSSS HH HH 000000 
DDDDDDDD BBBBBBBB GGGGGGGG NN NN SSSSSSSS HH HH 000000 
DD DD 6B BB GG NN NN SS HH HH O00 00 
DD DD 8B BB GG NN NN SS HH HH 00 
DD DD BB BB GG NNNN NN SS HH HH 00 
DD DD 8B BB GG NNNN NN SS HH HH 00 
dD DD 88888888 GG NN NN NN SSSSSS HHHHHHHHHH 00 
DD DD 88868888 G NN NN NN SSSSSS HHHHHHHHHH 00 
DD DD BB BB GG GGGGGG NN NNNN SS HH HH 00 
DD DD BB BB GG GGGGGG NN NNNN SS HH HH 00 
DD DD BB 8B NN NN SS HH HH 00 
DD DD 8B BB GG GG NN NN SS HH HH 00 00 
DDDDDDDD BBBBBBEB GGGGGG NN NN SSSSSSSS HH HH 000000 
DDDDDDDD BBBBBBBB GGGGGG NN NN SSSSSSSS HH HH 000000 
LL III] SSSSSSSS 
LL 111] SSSSSSSS 
LL I] S$ 
LL I] $$ 
LL I] $$ 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] $$ 
LLLLLLLLLL III] SSSSSSSS 
LLLELLLLLLL W111] SSSSSSSS 
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3 1 yf 8 MODULE DBGNSHOW (IDENT = ‘v04-000') = 

; : $08 1 BEGIN 

ae 0008 1! 

: $ Bone 1 i eeeeeeeeerereeeereereeereeeerereteeereeeeeeeeeeererereereereeeeeeeeeereneree 
3 07 1 Ie 

3 8 Bae 1 !® COPYRIGHT (c) 1978, 1980, 1982, 1984 * 
.e.2 0009 1 i DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. . 

4 19 Bots : :: ALL RIGHTS RESERVED. : 

: i borg 1 ie THIS he is FURNISHED nee A LICENSE AND MAY BE USED AND corres * 

3 1 001 1 '® ONLY IN ACCORDANCE WITH THE pes S OF SUCH pecceee AND WITH THE * 

H 14 0014 1 !* INCLUSION OF tHe ABOVE By’ peneee NOTICE. THIS SOFTWARE OR ANY OTHER * 

; 15 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

3 16 8018 1 !® QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

4 \ id EA : TRANSFERRED. . 

. if 

; 19 0019 1 I! poe INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

4 $9 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

3 $3 8053 : re CORPORATION. 2 

; 'e 

3 $¢ ies 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

; 24 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
Ro BLE 
. * 

: a7 0027 1 i eeeeeeeeeeneeaeeeeeeeeeeeeeeeeeeteeeeeteereeeeeeeeeneeeeneeeeeeeeeeeeeeeeee 
De Bail 

: $0 $080 1 ' MODULE FUNCTION 

: 1 0031 1! This module contains the ATN parse network and the command execution network 
: 32 iT) 1! to support the SHOW ... command. The parse network constructs a command 
3 33 0033 1! execution tree sons isting of a verb node as the head, and 0 or more noun 
: 34 0034 1! nodes and adverb nodes. The execution network uses the command execution 
Z : tH : tree as input and performs the corresponding semantic actions. 

: 37 0037 i AUTHOR: David Plummer, CREATION DATE: 3/31/80 

; 39 0059 | MODIFIED BY: 

> 41 0041 1! Richard Title 16-Sep-81 

. @f 94 4 1! Sid Maxwell 3-Dec-81 

: 63 00435 1! ‘my F Sager 19-Feb-8 

: 44 0044 1! lt ig-Rey-3 

3 rf BRe? : } Brad Becker 13-Sep- 

; 4? 0047 i REVISION HISTORY: 

: 49 0049 1 ' 3.01 16-SEP-81 RT Implemented SHOW SOURCE 

3 50 0050 1! -08 go's be $ RT Implemented SHOW MARGINS and SHOW MAX_SOURCE_FILES 
:- 0051 1! 3.05 21-Oct- 3} RT Implemented SHOW SEARCH 

; 26 8036 1! 3.06 3-Dec-81 SRM -2en ed SHOW CALLS to check AT_FAULT instead 

; * 00535 1! of AT_BREAK and AT_STEP_END 

, %6 054 1! 38.0 19-Feb- PS Implemented SHOW SYMBOL 

, 055 1! -May- RT Implemented SHOW DEF INE 

; 656 926 1! -May- RT Implemented SHOW SYMBOLS/DEF INED 

, $7 0057 1! 7-May- RT Implemented SHOW DEVELOPER 
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benb00" 1e28eb 1382 93:93:52 HOR auG. Bhi Sbecnshou asses 9% as 
3 8 8 1! 14-May-82 VJH added call to DPGSFL SHOU eliminating need to 
: 9 0 5 initial ze local buffer pointers 
; @& 060 1! 7-Jun-82 VJH Removed all references to DBGSF AO. PUT and 
. 061 1! DBGSOUT_PUT, as these are now obsolete. 
= poe 2 3 04-Apr-83 RT Removed all references to VJH, as 
; 6 BRe 1! S now obsolete. (Just kidding, Vickice.«) 
; «666 0646 1! oyn~Aor-83 RT Made SHO SYM also show defined symbols 
3; 65 0065 1! 4.0 13-Sep- BAB Implemented SHOW KEY 
3 4] R208 1! 
c- © 067 1 
3 o8 434 : REQUIRE *SRC$:DBGPROLOG.REQ'; 
g 0 8 8g 1 LIBRARY ‘LIB$:DBGGEN.L32'; 
. 2a 0206 1 
3 7 0205 1 FORWARD ROUTINE 
3 7 0 oe 1 DBGSNPARSE_SHOW, ' Parse network for SHOW command 
3 74 0207 1 DBGSNPARSE” SHOW_KEY, ' Parse network for SHOW KEY command 
ae | 0208 1 DBGSNEXECUTE SHOW, ' Execution network for SHOW command 
; 0209 1 DBGSNEXECUTE SHOW_ ! Execution network ver SHOW KEY command 
OR ai 0210 1 GSNSHOW_MARGINS UE, ! Displays margin setti ngs 
; 78 0211 1 DBGSNSHOW_MAX SOURCE _FILES : NOVALUE, ! Displays max_source_file eet ing 
: #679 tat 1 DBGSNSHOW OUTPUT : ‘ ! Displays output configuration of debugger 
: ! Display radix settings 
80 0213 ~+#1 DBG$SHOW_RADIX: NOVALUE; ! Displ di tti 
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_ DBGNSHOW 16-Sep-1984 02:04:20 AX-11 Bliss-32 V4.0-742 Page 
Voe 14-Sep- 38 95:95:80 DEBUG. SRC IDBGNSHOW.B325 1 . 
¢ EXTERNAL ROUTINE 
DBGSEVENT_SHOW_CANCEL_SYNTAX ' Syntax for SHOW! CANCEL BREAK! TRACE !WATCH 
DBGSEVENT SHOW CANCEL~SEMANTICS, ' Semantics for SHOW: CANCEL BREAK: TRACE: WATCH 
5 DBGSDUMP_BEFINE, ! Dump define symbol table 

He] DBGSFA T: NOVALUE, e 

8 DBGSNGET_TRANS_RADIX 

88 DBGSSCR_EXECUTE_SHOD{ SP CMD:NOVALUE,! Execute the SHOW DISPLAY command 

89 BGSSCR_EXECUTE SHOSEL_ CMD: NOVALUE,! Execute the SHOW SELECT command 

90 DBGSSCR_EXECUTE SHOWIND CMD:NOVALUE,! Execute the SHOW WINDOW command 

91 DBGSSCR_PARSE_SAODISP_CMD: NOVALUE, ! Parse the SHOW DISPLAY command 

) DBGSSCR PARSE _SHOWIND_CMD: NOVALUE, ! Parse the SHOW WINDOW command 

4 DBGSSHOO_TYPE ' Displays default and override types 

94 DBGS$SH ODE, ! Displays mode 

95 DBGSSHOW_MODULE, ! Outputs the module chain 

96 DBGSSHOW_ SEARCH: NOVALUE, ! Displays search settings 

97 DBGSSHOW_DEFINE: NOVALUE, ! Displays define a 

98 STE ' Outputs user defined step settings 

99 ! Parse the SHOW TASK command 


' 
' 
! 
' 
' 
' 
' 
' 
! 
! 
i] 
' 
' Execute the SHOW TASK command 
: Outputs user set scopes : 
! Shows current runframe nesting 
XT_wWO ' Isolates next word of input for syntax errors 
DBGSNSYNTAX ERROR ' Outputs a syntax error 
' Constructs a message argument vector 
! Converts input ASCII to integer 
' Stores a string from input 
! Allocates Listed dynamic storage 
! Formatted ASCII output 
! Flush the output buffer 
! Initialize new print Line 
! Returns language settin 
! Implements the SHOW SOURCE command 
Parses scope list 
' 
' 
' 
' 
' 


DBGSNEWLINE: NOVALUE 


: Execute the SHOW SYMBOL command ‘ 

! Counted string matching routine for parsing 
! Reads the key-name/state_name for SHOW KEY 
' Returns false if descriptors are equal 


poeretA SHOWSY 


BGSNMATCH 
DBGS$READ_KEY_INFO, 
STRSCOMPARE EQL 


Language index 
Radix sete net 
BYTE), ' FAB for LOG file 


' NAM block for LOG file 

! Version 2 context vector ; 

' Vector for output configuration 

! Margin 

! settings. 

! Maximum number of open source 

: files (DBGSOURCE) | 

! The current terminal width ; 

! Pointer to original command string 


SMGSLIST_KEY_DEFS i Returns all key definitions 
SMGSSET_DEFAOLT_STATE; i Returns the default key state 
EXTERNAL 
BGSRUNFRAME: BLOCK C,BYTE), User runframe 
DBGS$GL_DEVELOPER: BITVECTOR, Set to different developer modes 
G$GB_ A YTE, TRUE if keypad input is enabled 
DBG$6B G 
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DBG$GB-DEF OUT: VECTOR PP te), 
MARGIN, 


4 
@ 
oc 
bad 
“ 
= 
o 

V 
» 
_ 
eo 
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~ 
z@ 
a 
ee 
z 
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DBGSSRC_TERM_WIDTH 
DBG$GL_ORIG_COMMAND_PTR, 
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PIPDPIPIPNINININYNYNINININYNINYNININININIAINININPYNINININYNIPINIPIPYINPIPUPSPPPNPoPyNy 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: DBGSPRIAT: NOVALUE, 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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DBGSGL_UPCASE_COMMAND_PTR: VECTOR(2); 


! Pointers to start and end 
: of current command string 


EXTERNAL LITERAL 
SMGS$_NOMOREKEYS, 
SMGS$_KEYNOTDEF ; 
LITERAL 
: Legal adverb literals for SHOW SYMBOL qualifiers 


SYMBOL_TYPE 


MITOIPOTUROPUPOPoPoTornororopnopnr 
CoC COCO COCO OOO SIN NNN 
VrPwn— 


on 
bt heh te PRA. ty Dy te bt + herb tery te her 


SYMBOL DST 
SYMBOL DEF INED 


Composite verb literals 


WN $8 OD NOUV E WO ODNOU EWN OO” 


OOO0O0OOOM 


Note = you may cause yourself problems if you try to renumber these, 
because some of these numbers must be the same as the corresponding 
EVENTSK_SHOW_XXX in DBGLIB.REQ. 


! Also EVENTSK_SHOW_BREAK 


COOoCoC0Oo 


Soscess 


NOV WN (OO OODNOUE WI" OOONOuM 


SHOW-RADIX 
SHOW-RADIX_OVERRIDE 
SHOW” SCOPE 
SHOW” STEP 
SHOW” TRACE 


! Also EVENTSK_SHOW_TRACE 
SHOW” TYPE 
SHOW-TYPE OVERRIDE 


SHOW" WATC 
SHOW” SOURCE 
SHOW"MARGINS 

SHOW"MAX_ SOURCE _FILES 
SHOW" SEARCH 

HOW" SYMB 


! Also EVENTSK_SHOW_WATCH 


“DEFIN 
SHOW” SYMBOL _DEF INED 
SHOW” DEVELOPER 
SHOW"DISP 


WA A.A.AN NIAAA IAI IAAI AIA AIA AAI IIo nononononononononon 


a a a a a ak ad a “kt = 8 a tt 


G0 00 G0 Go G0 G0 G0 09 09 09 SI NIN NIN NINN NNO AO AA AAAAANMMNAN EP PP PPP PPP 
So ee eS SS SRS SSeS NFU SSSISFF | 
ed ed od dd dd dd 
“ 
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vOCe eae VAR a YM YT RRP Ett Prt 29? 125 
i SHOW. TASK ; 
! MAX_SHOW : 30; 
1 
MACROS 


The following macro is just an abbreviation for some error-reporting 
code that occurs repeatedly 


MACRO report error = 
BEG! 


LEFRANLS SELF 


-message_ vect = ( — 
If dGgSnmatch (, input desc, dbg$cs_cr, 1) 


dbg$nmake_arg_vect (dbg$_needmore) 


dbg$nsyntax_error (dbg$nnext_word (.input_desc))); 
Aen stsdk_severe; 


a a a a et nd nd ed = 8 
nn . 


0 

08 

09 0 

10 0 

i} 0 

18 0 

14 bee 

15 034 

16 034 '¢ 

17 034 ! Definition for the List of state names in the IF_STATE qualifier of the 

18 03 ! Define/key command. 

19 03 le 

20 03 

1 035 IELD 

¢ 035 DBGSSTATE_NAME_FIELDS = 

aa |: ¥ 
$56 Bae DBGSL_STATE_NAME_PTR = £9. 0, 3° 0), ! Pointer to name descriptor 
$$$ tH DBGSL_STATE_NAME_LINK = (1, 0, 32, 0) ! Pointer to next state name 
28 036 TES; 

$3 036 

0 036 LITERAL 

3 oee DBGSK_STATE_NAME_SIZE = 2; ! Length in long words 
$35 036 MACRO 
234 0 


DBGSSTATE_NAME_NODE = BLOCK CDBGSK_STATE_NAME_SIZE] FIELD (DBGSSTATE_NAME_FIELDS) 2%; 


nN 5 
DBGNSHOW 16-Sep-1984 02:04:20 AX-11 Bliss-32 v4.0-742 Page 6 
v04- 12-808 - 1 3be 95:06:60 DEBUG. SRC ]DBGNSHOW.B32:1 . (3) 
; of } GLOBAL ROUTINE DBGSNPARSE_SHOW (INPUT_DESC, VERB_NODE, MESSAGE_VECT) = 
; 8 e3 i FUNCTIONAL DESCRIPTION: 
: 240 “eae This routine comprises the ATN parse network for the SHOW command. The 
; 241 ie 1} network constructs a command execution tree consisting of a Linked List 
PF : i : of yer noun, and possibly adverb nodes which the exectuion network accepts 
3 as input. 
: 44 0 i. oe. 2 = 
3 re 4 zg : FORMAL PARAMETERS: 
; é} 0 oS ! INPUT_DESC = Descriptor which points to the command input buffer 
: rs 4 39 ! VERB_NODE = The head node in the command execution tree 
: 51 O86 1! MESSAGE_VECT - The address of a onpeere to contain the address 
: 26 tit ; of a message argument vector 
: 354 0385 1 | IMPLICIT INPUTS: 
s 299 0386 1! 
; 256 0387 .1! NONE 
3; 257 0388 #1! 
; 38 BaeR : IMPLICIT OUTPUTS: 
: soo $44 : ae command execution (parse) tree is constructed and Linked to the verb 
3 node. 
3 364 0398 1! 
3; 2 0394 1 ! ROUTINE VALUE: 
3 264 0395 1! . 
; 265 0396 1! An unsigned integer longword completion code 
3: 266 0397 1! 
3s 267 0398 1 ! COMPLETION CODES: 
: 268 0399 1! 
; 270 ot : STSSK_SEVERE (4) - Parsing error encountered 
: 4 0408 1 STSSK_SUCCESS (1) - Successful parse and construction of the command 
3 exectuion tree. 
: 57 0404 1: 
3 274 0405 1 
3; 275 2606 $ BEGIN 
3; 276 040 
3 144 0408 MAP 
3 4 4 ret VERB_NODE: REF DBGSVERB_NODE; ! Pointer to the Verb Node 
; $80 be14 BIND 
: 281 Bete DBGSCS_ADDRESS = UPLIT BYTE (ZASCIC ‘ADDRESS'), 
; ag 041 DBGS$CS_ALL = UPLIT BYTE (ZASCIC ALL*), 
5 8 0414 DBGSCS_BREAK = UPLIT BYTE (ZASCIC "BREAK'), 
3: 284 Rel? DBGS$CS_CALLS = UPLIT BYTE (ZASCIC ‘CALLS') 
: «4285 416 DBGSCS_DEFINE = UPLIT BYTE (ZASCIC "DEFINE'S 
: 286 17 DBGSCS_DEFINED = UPLIT BYTE (ZASCIC "DEFINED'S , 
3; 287 418 DBGSCS_DEVELOPER= UPLIT BYTE (ZASCIC DEEL ORER ), 
3; 288 419 DBGSCS_DIRECT = UPLIT BYTE (ZASCIC ‘DIRECT') 
3 289 420 DBGSCS"DISPLAY = UPLIT BYTE (ZASCIC ‘DISPLAY'S, 
; a 0421 DBGSCS_DST = UPLIT BYTE (ZASCIC ‘DST'), 
3; 291 04 ; DBG$CS-GLOBAL = UPLIT BYTE (ZASCIC ‘GLOBAL"), 
: 292 042 DBGSCS_IN = UPLIT BYTE (ZASCIC ‘IN'), 
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DEBUG. 


! May have to accept an integer. In any case, we need a noun node. 

noun_node = Segreet rensges (dbg$k_noun_node_size); 

verb_node Cdbg$l_verb_object_ptr] = .noun_node; 

! Start out with -1 for the value of the integer. If the input 
Line is not null, then we will try to obtain an integer. 


! 

' 

i 

IF dbg$nmatch (.input_desc, dbg$cs_cr, 1) 
THEN 


BEGIN 
noun_node Cdbg$l_noun_value] = <1; 


IF NOT dbg$nsave_decimal_integer (.input_desc 


noun_node Cdbg$l_noun_valuel, 
-mesSage_vect 
THEN 
RETURN sts$k_severe; 
END; 


END; 


Handle the SHOW DEFINE command. 
CDBGSNMATCH (.INPUT_DESC, DBGSCS_DEFINE, 1)]: 
+ Spe ete CDBG$B_VERB_COMPOSITE] = SHOW_DEF INE; 


Handle the SHOW DEVELOPER command. 
CDBGSNMATCH (. INPUT_DESC, DBGSCS_DEVELOPER, 9)]: 
a CDOBG$B_VERB_COMPOSITE] = SHOW_DEVELOPER; 


Handle the SHOW DISPLAY command. 
COBGSNMATCH (. INPUT_DESC, DBGSCS_DISPLAY, 3)]: 


VERB_NODECDBG$B_VERB_ COMPOSITE) = SHOW_DISPLAY; 
DOGSSCR_PARSE _SRODISP_CRO(. INPUT DESC, . VERB_NODE) ; 


Handle the SHOW KEY command. 
Cdbg$nmatch (.input_desc, dbg$cs_key, 1)): 
= dbg$nparse_show_key(.input_desc, .verb_node, .message_vect); 
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DEBUG.SR 


} Handle the SHOW LANGUAGE command. 
CabgSnmatch (,input_desc, dbg$cs_language, 2)] : 
yore node Cdbg$b_verb_composite] = show_language; 


Cdbgsrmatch (. input desc, dbg$cs_log, 2)] : 
yore pate Cdbg$b_verb_composite] = show_log; 


vee 3 (.input_desc, dbg$cs_margins, 3)] : 
yore poet Cdbg$b_verb_composite] = show_margins; 


eabemrageen (,input_desc, dbg$cs_max_source_files, 3)] : 
yore note Cdbg$b_verb_composite] = show_max_source_files; 


ste 037 a (.input_desc, dbg$cs_mode, 1)] : 
rere pean Cdbg$b_verb_composite] = show_mode; 


Cdbgirastch (.input_desc, dbg$cs_module, 4)] : 
yore_node Cdbg$b_verb_composite] = show_module; 


one “7 (. input desc, dbg$cs_output, 1)] : 
york, nade Cdba$b_verb_composite] = show_output; 


Cabesractch (,input_desc, dbg$cs_radix, 1)]: 
verb _node[dbg$b_verb_composite] = show_radix; 


WHILE dbg$nmatch (.input_desc, dbg$cs_Slash, 1) DO 
SELECTONE TRUE OF 


! SHOW RADIX/OVERRIDE. Change the verb composite to 
; indicate this. 


Cdbg$nmatch (.input_desc, dbg$cs_override, 1)]: 
verb_node(dbg$b- verb. composite] = show_radix_override; 


! Ignore /INPUT and /OUTPUT = we will show both on 
@ SHOW RADIX command anyway. 


Cdbg$nmatch (.input_desc, dbg$cs_input, 1)]: 
Cdbg$nmatch (.input_desc, dbg$cs_output, 2)): 
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: 464 95 0; 

; 465 38 
3 46 9 4 : Any other condition is an error. 

; 468 0599 Cdbg$nmatch (.input_desc, dbg$cs_cr, 1)]: 
; 469 600 SIGNAL (dbg$_needmore); 

; 470 0601 

> «471 060 COTHERWISE): 

3 67 0603 4 BEGIN 

s 467 0604 4 LOCAL 

> 474 0605 4 cs: REF VECTORC,BYTE), 

; 475 0606 4 stg.desc: dbg$stg_desc; 

3; 476 0607 4 cs = dbg$nnext_word(.input_desc); 

3; 477 0608 4 stg_desc(dsc$b_class] = dsc$k_class_s; 
; 478 0609 4 stg_descldsc$b_dtype] = dsc$k_dtype_t; 
3 479 0610 4 stg_desc(dsc$w_length] = .cs(0]; 

; 480 0611 4 st9 desc(dsc$a_pointer] = cs(1); 

> 481 0612 4 SIGNAL (dbg$_syntax, 1, stg_desc); 

; 48 061 : END; 

; 48 0614 TES; 

> 484 0615 2 END; 

; 485 0616 5 

: 486 0617 Cdbg$nmatch (.input_desc, dbg$cs_scope, 2)] : 

; 487 0618 BEGIN : 

> 488 0619 verb_node C[dbg$b_verb_composite] = show_scope; 

: 489 bess ND; 

; 4690 0621 

; 491 062 

3 rt oe5i Handle the SHOW SFARCH command. 

3 494 0625 CDBGSNMATCH (.INPUT_DESC, DBGSCS_SEARCH, 2)] : 

; 495 0626 2 VERB_NODE CDBG$6_VERB_COMPOSTTE] = SHOW_SEARCH; 

; 496 0627 2 

: 497 0628 

; 4498 Bog? ! Handle the SHOW SELECT command. 

; 499 0630 : 

; $500 0631 CDBGSNMATCH (. INPUT_DESC, DBGSCS_SELECT, 3)]: 

; 501 063¢ VERB_NODECDBGS$B~VERB_COMPOSITE) = SHOW SELECT; 

; a0¢ 063 § 

; 0634 

3 ope tH Handle the SHOW SOURCE command. 

; 506 0637 CDOBGSNMATCH (,INPUT_DESC, DBGSCS_SOURCE, 2)] : 

; a4 0638 VERB_NODECDBG$B_VERB_COMPOSITE] = SHOW_SOURCE; 

; 508 0639 

; 509 0640 

; $10 0641 Cdbg$nmatch (.input_desc, dbg$cs_step, 1)] : 

3 «511 B6t¢ BEG! Y 

; 216 064 verb_node [dbg$b_verb_composite] = show_step; 
ae). 0644 END; 

; «514 0645 

3; 515 2666 

; 21¢ set 4 SHOW SYMBOLC/qulifier...] namespec(,namespec...)] CIN scopel,scope...J] 
; 218 0649 Cdbg$nmatch (.input_desc, dbg$cs_symbol, 2)): 

; 519 650 BEGIN 

; 520 0651 LOCAL 
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; 1 06 ¢ addr_flag, ! /ADDRESS 

$ ¢ 06 data_list: ref vector(,long],! A link List of data 

3 0654 : symbols (A,B,C) 

> 526 0655 global_flag, i (Only valid for defined 

; 5 Bo28 ' symbols) = TRUE to show 

3 Se 065 ! 9 obally defined symbols 

; 7 0658 ' (the default); false 

3 8 0659 ' for /LOCAL symbols 

3 9 0660 type_flag; ! /TYPE 

; 330 0661 ; 

3 H 1 066 ! Initialize flags. 

; 3 66 ‘ 

; 3 664 global_flag = TRUE; 

3 eee 0665 addr_flag = FALSE; 

s 339 0666 type_flag = FALSE; 

; 536 0667 

3 SaV 0668 

; 235 +434 ; : Indicate that the command was SHOW SYMBOL. 

3 6360 0671 verb_node Cdbg$b_verb_composite] = show_symbol; 

> (541 067 ; 

; a6 067 

3 34 0674 3 : Check to see if there is/are qualifier(s) for this command. 
> 544 0675 3 : If there is/are, then constructs adverb node(s) for it. 

3 giz gore ; } /DST and /RST are valid, only if the flag is set to DEVELOPER. 
; 547 0678 3 Link = verb_node Cdbg$l_verb_adverb_ptr); 

> 548 0679 3 WHILE dbgSnmatch (.input_desc, dbg$ts_slash, 1) DO 

> 549 0680 4 BEGI 

:; 30 0681 4 

s So) 0682 4 

; 226 0683 4 ' Case on the qualifier. 

3 >> 0684 4 ; 

> 554 0685 4 SELECTONE TRUE OF 

3 Dee 0686 4 SET 

3; 3% 0687 4 

s Sor 0688 4 : 

$s 338 0689 4 ! SHOW SYM/ADDRESS. Construct an Adverb Node and Link 
; 559 0690 4 : it tn. 

; 560 0691 4 ; 

; 561 0692 4 Cdbg$nmatch (.input_desc, dbg$cs_address, 1)]: 

; 266 0693 5 BEGIN 

: 56 0694 5 addr_flag = TRUE; : 
; 564 0695 5 adverb_node = dbg$get_tempmem (dbg$k_adverb_node_size); 
; 565 0696 5 link = .adverb_node; 

: 566 0697 5 Link = ecvers node ([dbg$l_adverb_ link]; 

; 567 0698 5 adverb_node (dbg$b_adverb_literal] = symbol_address; 
: 568 0698 4 END; 

; 569 0700 4 

; $70 $44 4 a. = 

; ST) 44 4 ' SHOW SYM/DEFINED. This qualifier restricts the 

: 276 fait, ? } search to the defined symbols. 

; are 0708 4 Edbgdonacch (.input_desc, dbg$cs_defined, 2)]: 

3 Fe $709 3 verb_node ([dbg$b_verb_composite] = show_symbol_defined; 
3; Sr 0708 4 ND; 
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SHOW SYM/DIRECT. Construct an Adverb Node and Link it in. 
CabgSnmatch (.input_desc, dbg$cs_direct, 2)): 


ofyert. wer = bnodes tempmem(dbg$k_adverb_node_size); 
= ,adverb 

Link = aeuerD node fabgst. adverb_Link]; 

edverb_ node (dbg$b_adverb_literal) = symbol_direct; 


SHOW SYM/DEF INE/GLOBAL 


CabgSnmatch (.input_desc, dbg$cs_global, 1)]: 
gicbal_flag = TRUE; 
ND; 


SHOW SYM/DEF INED/LOCAL 
CabgSnmatch (.input_desc, dbg$cs_local, 1)]: 
pi ceek. Fung = FALSE; 


ag! SYM/TYPE. Construct an Adverb Node and Link 
: n. 
' 


Cdbg$nmatch (.input_desc, dbg$cs_type, 1)]: 
SBEGIN ee 


type_flag = TRUE; 

adverb “node = abas + _tempmem(dbg$k_adverb_node_size); 
Link = -adverb_n 

link = adverb nde fdbost_ adverb_link]; 

adverb_ node [dbg$b_adverb-literal) = symbol_type; 


! The eens. two are only allowed if developer 
bit 0 is set. 


Cormenwise3: 
IF .OBGS$GL_DEVELOPER(O) 
THEN 
BEGIN 
vat} TRUE OF 


! SHOW SYM/RST, Construct and Adverb Node 
' and Link it in. 


tdbgsnaatch (,input_desc, dbg$cs_rst, 3)]: 


DBGNSHOW 

voe~000 

; 635 o76 

3; 6 : 76 

3; 6 Pes 
3; 6 6 

3; 639 770 
; 640 0771 
; 641 pire 
; «64 077 

; 64 0774 
3 644 0775 
3; 645 776 
; 646 777 
3; 647 778 
; 648 0779 
3 649 0780 
; 650 0781 
; 651 14 
3 $26 078 

3 65 0784 
; 654 0785 
; 655 0786 
; 656 0787 
; 657 0788 
; 658 0789 
; 659 0790 
; 660 0791 
3; 661 144 
3 O66 079 

; 66 0794 
: 664 0795 
; 665 0796 
; 666 0797 
; 667 0798 
; 668 0799 
3; 669 0800 
; 670 0801 
3; 671 080 

; 67 080 

3; 67 0804 
3 674 0805 
; 675 0806 
3: 676 0807 
s 677 0808 
; 678 809 
3; 679 810 
; 680 0811 
; 681 Bai§ 
; 68 081 

; «468 0814 
3; 684 815 
; 685 316 
: 686 81 

; 687 818 
; 688 819 
3; 689 820 
; 690 oB52 
; 691 0822 
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END; 
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BEGIN 

me gee Oe = ro hodes tempmem(dbg$k_adverb_node_size); 


Link = adverb node fabgst_ adverb jinn); 
geyerd_ node Cdbg$b_adverb-literal) = symbol_rst; 


' SHOW SYM/DST. Construct and Adverb Node 
: and Link it in. 


{dbgsrmatch (.input_desc, dbg$cs_dst, 3)]: 
adverb_ node = sbasget- tempmem(dbg$k_adverb_node_size); 
b node CdbgSt_ adverb_Link]; 
adverb node [dbg$b_adverb_ literal] = symbol_dst; 
Any other qualifier is an error. 
COTHERWISE): 
BEGIN 
-message_vect = 
if dbg$nmatch(.input_desc, dbg$cs_cr, 1) 
dbg$nmake_arg_vect (dbg$_needmore) 
dbg$nsyntax_error (dbg$nnext_word(.input_desc)) 


RETURN sts$k_severe; 
END; 


TES; 

END ! Checking for /RST, /DST 

SE 
BEGIN 
"Withitatattiinic ca 
if Copinnetch<. input desc. dbg$cs_cr, 1) 

dbg$nmake_arg_vect (dbg$_needmore) 
dbg$nsyntax_error (dbg$nnext_word(.input_desc)) 


RETURN sts$k_severe; 
END; 


END; 
TES; ! End of selecting qualifiers. 
! End of While Slash Loop. 
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: Put a 0 in the Last Link field in verb_node's adverb_node_ptr 
field or adverb_node's Link field. 


slink = 0; 


: If the command was SHOW SYMBOL/DEFINED, then 
! there better not have been any qualifiers other than /GLOBAL 
or /LOCAL. 


IF ,verb_node Cdbg$l_verb_adverb_ptr] NEQ 0 
ff vertnede Cdbg$b_verb_composite] EQL show_symbol_def ined 


BEGIN 
message _vect = dbg$nmake_arg_vect (dbg$_incomqual); 
A sts$k_severe; 


! Construct the noun node for pointers to symbol name and 
scope List. 


noun_node = Sogtoct tenppen(dbest noun node. size); 
verb_node (dbg t_yerd object_ptr] = .noun_node; 
Link” = noun_node’ Cdbg$l_noun_value); 
WHILE TRUE Bo 

BEGIN 

data_ list = pros’ sonpnent sh, 

elink = .data list; 

link = data_list(0); 


For language C, we do some fancy footwork to 
make sure we preserve the original casing of 
the identifier (since casing is significant 


' 
i 
iF 
TH 


nC). 
gp m.tenquage EQL dbg$k_c 
BEGIN 
MAP 
input_desc: REF dbg$stg_desc; 
LOCAL 
length 
new_pointer: REF VECTOR C,BYTEJ, 

! Pointer to orig. command input 
pointer, ! Pointer into input lee 
stg_desc: dbg$stg_desc, ! String descriptor 
temp_ptr; 


First check for no more input. 
iF dbg$nmatch(.input_desc, dbg$cs_cr, 1) 
THEN 


<2 | 


ss 

3 
| 

| 

| 

| 

| 

| 
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; a8 oF 9 SIGNAL (dbg$_needmore) ; 

; «751 ; § ointer = .in yt .descldscSa_pointer): 

s @£ $ F (.pointer LSS .dbg$gl_upcase_command_ptr 

3 4 ? . : (.pointer GTR .dbg$gl_upcase_command_ptr 

; 4 5 BBG $DBG_ERROR( "DBGNSHOW\DBGSNPARSE_SHOW 10°); 

Te ; 0888 ! If we might be looking at ZLABEL then don't 

3; re 0889 ! go back to original case. 

: Fe $89) length = . input descCdsc$w_ Length) 

3 en = ,input_desc(dsc$w_len : 

; 761 O89 IF PHSEQL(G. ~painter, 6, OPLI? BYTE('ZLABEL")) 
3; 089 THEN 

: 76 0894 new_pointer = .pointer 

; 764 0895 5 ELSE 

; 765 0896 6 BEGIN 

: 0897 6 

3; 767 0898 6 ! We unfortunately have to allocate memory 

3 0899 6 ! and copy strings in order to stuff 

3; 769 0900 6 ! trailing carriage return at the end. 

3; 770 0901 6 : 

3 fry 0902 6 new_pointer = re) 4 ole ee ign nagphedilbad, 
. iF 09035 6 temp_ptr = (.pointer = .dbg$gl_upcase_command_ptr(0]) + 
3; 77 0904 6 rt orig_command_ptr; 

3 (774 0905 6 CHSMOVE C. Longe , stemp_ptr, .new_po 

3; «7s 0906 6 new_pointer(.length-1] = dbg$k_car_return; 

: 776 0907 5 END; 

3; 777 0908 5 

; 778 0909 5 ! FILL im the string descriptor. 

: 779 0910 5 : 

; 780 0911 5 stg_desc(dsc$b_class] = dsc$k_class_s; 

; «781 Bate 5 stg_descl(dsc$b_dtype] = dsc$k_dtype_t; 

; 7 0915 5 stg_desc(dsc$w_length] = .length; 

3; 0914 5 stg_descl(dsc$a_pointer] = .new_pointer; 

; 784 0915 5 stg_descl(dsc$l_pos] = 0; 

; «6785 0916 5§ 

3; 786 0917 5 ! Pick up the symbol name. 

3s ver 0918 5 ! ; 

; 788 0919 5§ IF NOT dbg$nsave_string( stg_desc, data_list(1], 
3: 789 0920 5 -mesSage_vect) 

: 790 0921 5 THEN 

3 7M 09 ; RETURN sts$k_severe; 

; 83 ; 

; 7 9246 ! Update the input descriptor. 

: 794 0925 5 : 

3; 795 0926 5§ rapes .feoctsectu, Length) = .input_desc(dsc$w_length] - 
: 7% 0927 5 (length = .stg_desc(dsc$w_length]) ; 
: 797 0928 input _desc(dsc$a_pointer] = .in ut descldsc$a_pointer] + 
; 798 0929 (.length - .stg_descldsc$w_length]); 

; 799 930 

; 800 931 é 

; 801 9 § : ' ALL other languages besides C ... 

; O 9 : 

; 80 934 4 ELSE 

; 804 935 4 

; 805 0936 4 ! Pick up the symbol name. 
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iF NOT dbgSnsave_string(.input_desc, gate, listCi], 
-message_vect) 


THEN 
RETURN stsS$k_severe; 


! For SHOW SYM/DEFINED, fill in the adjective field in the 
noun node with an encoding of the flags. 


noun_node Cdbg$l_adjective_ptr] = ee’ cal if * 4)+ 
eopice ag * 2) + 
ype_flag); 


! For ordinary SHOW SYMBOL, need to fix up %LABEL n and 
also pick up the IN clause. 
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if ;verd.node Cdbg$b_verb_composite] NEQ show_symbol_defined 


BEGIN * 
! Check data symbol for spec tol case Zlabel n. 
! First pick up ZLABEL, then pick up n. Then concatenate 
two strings with 1 space in between. 

p.bufl = .data_listl dé 
IF PCHSF IND. CHC. tip, buf 63, tmp_buf1C1), 
THEN 

SIGNAL (dbg$_pathnotacp, 1, tmp_buf1(0]); 
ff Lees (tap pul tC02., tmp_buf1C1J], 6, UPLIT BYTE('ZLABEL")) 

BEGIN 

If NOT dbg$nsave_string(.input_desc, data_list({1], 

en -message_vect 
RETURN sts$k_severe; 


buf2 = ,data_list(1]; 
data, ctisetti = 1180908" tn tem 


-data | tee tei = 
cHSMOUEC® tnp.b rife tmp. 


.data_lis F 
cwsmove 17 ‘vat i Byte ">, 


-dat x tap but} J} +1); 
CHsMove C “tape “butt J, tmp_buf 1), 
.data_l 1 ; .tmp_Buf! + 2); 


mp butZC0} +1) 4s 1); 
(0) + :$mP. buf2[0) + 1; 
buf1CiJ, 


END; 
END; 


NOT dbg$nmatch (.input_desc, dbg$cs_comma, 1) 


EXITLOOP; 
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END; ! End of building the data List. 


link = 0; 


COOoOCOCOoOOoO 
oo 
S333 


99 
99° ! See if there is keyword IN followed the symbol name. 
1399 } If it is, pick up the scope List. 
1006 IF _.verb_node Cdbg$b_verb_composite] NEQ show_symbol_defined 
100 THEN 
1004 4 BEGIN ; 
1383 4 IF dbg$nmatch (.input_desc, dbg$cs_in, 2) 
1 o8 4 THEN 
100 BEGIN 
1008 IF NOT dbg$nmatch(.input_desc, dbg$cs_cr, 1) 
1009 THEN 
1010 6 BEGIN : 
1011 6 IF NOT dbg$nparse_scope_list(.input_desc, noun_node[dbg$l_noun_value2], 
10g 6 -message_vect) 
1013 6 THEN 
1014 6 RETURN sts$k_severe; 
1015 6 END 
1016 g 
1017 LSE 
1018 6 BEGIN 
1019 6 message _vect = dbg$nmake_arg_vect(dbg$_needmcre); 
1020 3 RETURN sts$k_severe; 
1021 END; 
1os¢ 4 END; 
102 END; 
1024 
894 1025 
1026 ! End of the command buffer. (we hope) 
896 1027 : 
897 1028 IF NOT dbg$nmatch(.input_desc, dbg$cs_cr, 1) 
898 1963 THEN 
899 1030 4 BEGIN : 
900 1031 4 -message_vect = dbg$nsyntax_error (dbg$nnext_word(.input_desc)); 
901 1936 4 RETURN sts$k_severe; 
90 103 ; END; 
90 1034 ; 
904 1035 END; ! End of SHOW SYMBOL Parsing. 
905 10 $ 
208 19 
st IOs Handle the SHOW TASK command. 
909 1040 CIF NOT .DBG$GL_DEVELOPERCO) THEN FALSE ELSE 
aio el mee ag (. IRPUT_DESC, DBGSCS_TASK, 2)]: 
aig 1068 VERB_NODECDBG$B_VERB_COMPOSITE) = SHOW TASK; 
91 1044 DBGSAPARSE_SHOW-TASKT. INPUT_DESC, .VERB_NODE); 
914 1045 END; 
915 H 
3i¢ + 
ota ee Handle the SHOW TERMINAL command. 
919 1050 CDBGSNMATCH (.INPUT_DESC, DBGSCS_TERMINAL, 4)]: 


— 
vos~000" 


; 920 193 
et 

; 9 3 1982 

; 924 1055 

3 929 1928 

3; F $ 105 

c. & 1058 

; 928 1059 

; 929 1060 

; 9350 1061 

: 931 1966 

; 9 4 106 

3 837 1064 

: Ois idee 

3 333 1067 

3 44 1068 

; 938 1069 

; 939 1070 

; 940 1071 

3 941 3 

:; 94 107 

: 94 1074 4 
3; 944 1075 4 
> 945 1076 4 
: 946 1077 & 
: 947 1078 5 
; 948 1079 5§ 
3; 949 1080 6 
; 950 1081 6 
3: «951 10e8 6 
3 226 108 3 
; 95 1084 

3 954 1085 5 
; «955 1086 4 
; 956 1087 4 
; 957 1088 4 
; 958 1089 3 
3; 959 1090 4 
; 960 1091 4 
: 961 1038 

3 oc8 109 

; 96 139¢ 

3 964 1095 

3; 965 1096 

3 206 109 

; 1098 

; 968 1099 

3 5 +4 1100 

; 970 1101 

; 971 1136 

3 378 110 

; 97 11 

: 974 1105 

; 975 11 $ 

: 976 11 


n 6 

16-Sep-1984 02:04:20 YAX=11 Bliss-32_v4.0=742 Page 1 

We=$ep-1984 3:17:54 — EoeeuG. sRC}DBGNSHOU Bases aie 
VERB_NODECDBGSB_VERB_COMPOSITE] = SHOW_TERMINAL; 


} Handle the SHOW TRACE command. 
CabgSnmatch (,input_desc, dbg$cs_trace, 1)] : 


VERB_NODE CDBG$B_VERB_COMPOSITE] = EVENTSK_SHOW TRACE; 
RETURN DBGSEVENT_SHOW-CANCEL_SYNTAX (. INPUT DEST, 


V 
, MESSAGE _vECT 


END; 
Cdbg$nmatch (.input_desc, dbg$cs_type, 2)] : 
BEGIN p 9 yp 


! We may have SHOW TYPE or SHOW TYPE/OVERRIDE. 
Check for slash 


iF dbg$nmatch (.input_desc, dbg$cs_slash, 1) 
BEGIN 
aoe dbg$nmatch (.input_desc, dbg$cs_override, 1) 
BEGIN 
emessage_vect = 
1 ees (.input desc, dbg$cs_cr, 1) 
dbg$nmake_arg_vect (dbg$_needmore) 


oineystan crear (dbg$nnext_word (.input_desc))); 
RETURN stsdk_severe; 


verb_node Cdbg$b_verb_composite] = show_type_override; 


BEGIN 
ued Cdbg$b_verb_composite] = show_type; 
END; 
CébgSnastch (.input_desc, dbg$cs_watch, 1)] : 
VERB_NODE CDBG$B_VERB_COMPOSITE) = EVENTSK_SHOW_WATCH; 


RETURN DBGSEVENT” SHOW" CANCEL SYNTAX ( 
aie -INPUT_DESC, TVERB_NODE, .MESSAGE_VECT); 


Handle the SHOW WINDOW command. 


CDBGSNMATCH (, INPUT_DESC, DBGSCS_WINDOW, 3): 
VERB_NODECDBG$B_VERB_COMPOSITE) = SHOW_WINDOW; 


— 
at 


N 6 
1enSep-19b6 19:17:94 


AX-11 eis 
DEBUG. SRC 


s-32 V4.0-742 
DBGNSHOW.B32;1 


3 OTT 1198 DBGSSCR_PARSE_SHOWIND_CMD(.INPUT_DESC, .VERB_NODE); 
; 97 11 END; 
33 
: Bas 1118 } Any other kind of SHOW command constitutes a syntax error. 
3 388 1339 COTHERWISE3 : ! Parsing error 
3 oBe 1338 Col ere (input desc, dbg$cs_cr, 1) 
3 4 18 -message_vect = dbg$nmake_arg_vect (dbg$_needmore) 
> 989 1120 puossape.vect = dbg$nsyntax_error (dbg$nnext_word (.input_desc)); 
; 990 1121 RETURN stsSk_severe; 
; 991 11 ; END; 
; 11 
Be OMe st 
; 995 1126 RETURN STS$K_SUCCESS; 
; 996 1127 
3 WT 1128 #1 END; 
-TITLE DBGNSHOW 
IDENT \v04-000\ 
-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
53 53 45 52 44 44 41 O7 Q0000 P.AAA: .ASCII <7>\ADDRESS\ 
4C 4€ 41 03 00008 P.AAB: .ASCII <3>\ALL\ 
48 41 45 52 $s 05 OO00C P.AAC: .ASCII <5>\BREAK\ 
53 4C 4C 41 43 O05 Beets P.AAD: .ASCII <5>\CALLS\ 
45 4— 49 46 45 44 06 BAO) P.AAE: .ASCII <6>\DEFINE\ 
44 45 4E 49 46 45 44 O7 OQOOIF P.AAF: .ASCII <7>\DEFINED\ 
52 45 50 4F 4C 45 56 45 44 09 00027 P.AAG: .ASCII <9>\DEVELOPER\ 
54 43 45 26 49 44 3g 0031 P.AAH: .ASCII <6>\DIRECT 
59 41 4C 50 53 49 44 0 0038 P.AAL: .ASCII <7>\DISPLAY\ 
54 53 44 03 00040 P.AAJ: .ASCII <3>\DST\ 
4C 41 42 4F 4C 47 06 00044 P.AAK: .ASCII <6>\GLOBAL\ 
4E 49 02 00048 P.AAL: .ASCII <2>\IN\ 
54 55 50 ‘f 49 05 QO04E P.AAM: .ASCII <5>\INPUT\ 
59 45 48 8 00054 P.AAN: .ASCII <3>\KEY\ 
45 47 41 55 47 4E 41 4C 00058 P.AAO: .ASCII <8>\LANGUAGE\ 
4C 41 435 GF 4 8 Bee) P.AAP: .ASCII <5>\LOCAL\ 
47 4F 4C 7 P.AAQ: ASCII <3>\LOG\ 
53 4— 49 47 5 41 4D 0 $068 P.AAR: .ASCII <7>\MARGINS\ 
4C 49 46 SF 45 43 52 55 4F 53 SF 58 41 38 i9 bo 3 P.AAS: .ASCII <16>\MAX_SOURCE_FILES\ 
45 44 4F 4D 04 O08 P.AAT: .ASCII <4>\MODE\ 
45 of 23 44 4F 4D 06 Q0089 P.AAU: .ASCII <6>\MODULE\ 
54 5 0 54 55 4F i P.AAV: .ASCII <6>\OUTPUT\ 
45 44 49 2§ 25 45 56 4F 0097 P.AAW: .ASCII <8>\OVERRIDE\ 
58 49 44 41 OOAO P.AAX: .ASCII <5>\RADIX\ 
54 5 3 P.AAY: .ASCII <3>\RST\ 
4 ; 4F 4 AA P.AAZ: .ASCII <5>\SCOPE\ 
48 4 41 4 6 p80 P.ABA: .ASCII <6>\SEARCH\ 
54 435 45 4C 45 6 QO00B7 P.ABB: .ASCII <6>\SELECT\ 
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12 9 DEBUG. SRC JDBGNSHOW. wir 1 


on =e 


ut 
Te SHODISP_CMD~ 


EXT 
-EXTRN DBES SHOW” STEPS 


“0BCSNPARSE _SHOW_ TASK 
EXTRN DBGSNEXE ECUTE §Ho 


apne 

“EXTRN DBGSPRINT, DBGSNEWLINE 

*EXTRN ppc SSF Cusnéur , DBGSLANGUAGE 
GS$SR now’ RC 


$ 
-EXTRN STRSCOMPA 


~LANGUA ee 
“EXTRN DBG$GB~ “RADIX. DBG$GL_LOGF AB 
-EXTRN DBGSGL-KEY. TABLE ID 

-EXTRN DBGSGL~LOGRAM DBGSGL CONTEXT 

-EXTRN DBGSGB-DEF OUT, DBGSSRC_LEFT_MARGIN 
EXTRN Di Marcin 


DB G_COMMAN 

~EXTRN ppcser “URCASE COMMARD - Ree 
-EXTRN SMG$_NOMOREKETS 
SEXTRN SMGS$~ REYNGTDEF 
.PSECT DBGSCODE,NOWRT, SHR, PIC,O 

OFFC 00000 ENTRY DBGSNPARSE_ SHOW, Save R2.R3.R4,R5,R6,R7.RB,-; 0367 

0 (2 9002 ite QR 

000 rf 

0007 PUSHAB DBGSCS_BREAK 
Ban MOVL {nPut. BESC, R8 


; 0469 


[,oo™ 
e 
ae 
as 
a 
eee ee ee eee 


<V9 
om 


Sat 


000000006 


08 BC 08 
000000006 
01 
000000006 
08 


08 


000000006 
08 


000000006 


000000006 


08 BC 08 


000000006 


03 «BC 08 


000000006 
08 BC 08 


000000006 
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08 
00000000" 
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v0®D 
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08 
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4$: PUSHL 
00000000" 
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1 
: 5$: 
B 
D 
4 
7 
o 
F 
2 
4 
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? 
w$ep-1986 13:17:94 


AX=-11 Bt igseze V4.0-7 
DEBUG. SRC 


#3, DBGSNMATCH 
RO, #1 


’ 


1 
#1, #8, #8, QVERB_NODE 
84§ 


#1 

Pea 

#3, DBGSNMATCH 
A 


Hen TR Woe R2 


DBGSGET TEMPMEM 
NOUN, NODES 8(R2) 
DBGSCS_ CR 
#3, DBGSNMATCH 
#1, @NOUN_NODE 


MESSAGE _VECT 
NOUN_NOBE 


#3, DBGSNSAVE_DECIMAL_INTEGER 
RO. 6$ 

8a$ 
#1 
DBGSCS_DEF INE 
#3, DBGSNMATCH 
RO, #1 


AO: 


#20, #8, #8, @VERB_NODE 


#9 

DBGSCS_DEVELOPER 

#3, DBGSNMATCH 
#1 


#22, #8, #8, AVERB_NODE 
9$ 


#3 
DBGSCS_DISPLAY 
#3, DBGSNMATCH 
RO, #1 


#23, #8, #8, AVERB_NODE 
RB_NODE 


VERB 
' ‘ DBGSSCR_PARSE_SHODISP_CMD 


DBGNSHOW. ase 1 


<o 
om 
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v04=000 14-Sep-19 DEBUG. SRC JDBGNSHOW.B32; 1 
01 DD OOOED 78: PUSHL #1 : 0534 
00000000' Ef oF OE PUSHAB “ee : 
000000006 60 08 FR Nit CALLS #3, DBGSNMATCH : 
7 get Sete eh : 
7e 08 ‘ “0 00103 mova, eas =(SP) : 0536 
0000v CF 03 FB 90109 CALLS #3, DBGSNPARSE_SHOW_KEY : 
04 0010E RET : 
02 DD OO10F 8s PUSHL #2 + 0541 
00000000' EE OF oon PUSHAB DBG$CS_LANGUAGE ; 
8 DD 00117 PUSHL R : 
000000006 00 03 FB 00119 CALLS #3, DBGSNMATCH : 
01 50 01 90120 CMPL =e RO. #1 : 
08 12 0012 BNEQ 10 : 
08 BC 08 08 04 FO 00125 INSV #4, #8, #8, @VERB_NODE > 0543 
76 11 00128 9$: BRB 15$ > 0466 
02 DD 0012D 10$ PUSHL #2 + 0546 
00000000' EF 9F O01 ef PUSHAB DBG$CS_LOG F | 
8 DD 00135 PUSHL : 
000000006 00 03 FB 00137 CALLS #3, DBGSNMATCH : 
01 50 D1 0013€ CMPL =e RO, #1 : 
08 12 00141 BNEQ 11 : 
08 BC 08 08 0S FO 00143 INSV #5, #8, #8, @VERB_NODE : 0548 
76 11 00149 BRB 17 + 0466. 
03 DD 00148 11$:  PUSHL #3 > 0551 
00000000" EF 9F 0014D PUSHAB DBGS$CS_MARGINS ; 
58 DD 00153 PUSHL ; 
000000006 00 03 FB 00155 CALLS #3, DBGSNMATCH : 
01 50 1 0015¢ CMPL ~=sRO, #1 F 
08 12 0015F BNEQ 1 : 
08 BC 08 08 10 FO 00161 INSV #16, #8, #8, @VERB_NODE : 0553 
76 11 00167 12$: BRB 19$ + 0466 
03 DD 00169 13$:  PUSHL #3 : 0556 
00000000° ai 9F 00168 PUSHAB DBGS$CS_MAX_SOURCE_FILES : 
8 DD 00171 PUSHL ; 
000000006 00 03 FB 00173 CALLS #3, DBGSNMATCH : 
01 50 D1 OO17A CMPL ~=s RO. #1 : 
08 iF 00170 BNEQ 14 F 
08 BC 08 08 11 FO 0017F INSV #17, #8, #8, @VERB_NODE : 0558 
58 11 00185 BRB 19$ > 0466 
01 DD 00187 148:  PUSHL #1 > 0561 
00000000' Ef 9F 00189 PUSHAB DBG$CS_MODE ; 
8 DD 0018F PUSHL F 
000000006 00 03 FB 90191 CALLS #3, DBGSNMATCH ; 
01 0 D1 00198 CMPL =sRO. #1 : 
08 iF 00198 BNEQ 16 ; 
08 BC 08 08 06 F 0190 INSV #6, #8, #8, @VERB_NODE > 0563 
A 11 001A3 15$: BRB 19$ > 0466 
04 po O1A5 16$:  PUSHL #4 > 0566 
00000000' Ef F OO1A7 PUSHAB DBGSCS_MODULE ; 
8 DD 001AD PUSHL ; 
000000006 00 g FB Oar CALLS #3, DBGSNMATCH ; 
01 0 D1 001B6 CMPL RO. ; 
08 iF 0189 BNEQ 18 : 
08 BC 08 08 07 FO 00188 INSV #7, #8, #8, @VERB_NODE > 0568 
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a, 
16-Sep-1984 04:20 AX-11 Bliss-32 V4.0-742 Page 24 
ae ae 96:06:60 DEBUG. SRC IDBGNSHOW.B32: 1 . 3 
1¢ 11 .001C1 17$: BRB 19$ : 0466 
07 po C3 18$: PUSHL #1 * 0571 
00000000° Ef F OO01C PUSHAB DBG$CS_OUTPUT : 
; DD 001¢B PUSHL R : 
000000006 00 Q FB 001CD CALLS #3, DBGSNMATCH : 
01 0 D1 00104 CMPL sO, #1 : 
09 1 0107 BNEQ 20 : 
08 08 : FO 00109 INSV #8, #8, #8, @VERB_NODE : 0573 
06C5 31 OO1DF 198: BRW 89$ t 0466 
01 DD OO1E2 20$:  PUSHL #1 : 0576 
00000000" EF 9F O01E4 PUSHAB DBGS$CS_RADIX : 
: DD OIE PUSHL R : 
000000006 00 FB TE CALLS #3, DBGSNMATCH : 
01 30 D1 OO1F CMPL = RO, #1 : 
03 13 001F6 BEQL 1§ ; 
0085 31 001F8 BRW 2g : 
08 08 1C FO OO1FB 218: INSV #28, #8, #8, @VERB_NODE : 0578 
01 DD 00201 22$: PUSHL #1 3; 0579 
00000000° Ef 9F 00203 PUSHAB DBG$CS_SLASH : 
8 DD 00209 PUSHL R : 
000000006 00 03 FB 00208 CALLS #3, DBGSNMATCH : 
CA 50 €9 00212 BLBC = RO, -:19$ : 
01 DD 0021 PUSHL # : 0586 
00000000' EF 9F 00217 PUSHAB DBGSCS_OVERRIDE : 
58 DD 0021D PUSHL : 
000000006 00 03 FB O021F CALLS #3, DBGSNMATCH : 
01 50 01 00226 CMPL sO. #1 : 
08 12 00229 BNEQ 24 : 
08 08 1D FO 00228 INSV #29. #8, #8, AVERB_NODE : 0587 
CE 11 00231 23$: BRB 22$ : 
01 DD 00233 24$: PUSHL #1 : 0592 
00000000" EF 9F 00235 PUSHAB DBG$CS_INPUT : 
58 DD 00238 PUSHL R ; 
000000006 00 03 FB 00230 CALLS #3, DBGSNMATCH F 
01 50 D1 00244 CMPL ~=s RO. #1 ; 
BB 13 00247 BEQL © 22$ : 
02 Dd 00249 PUSHL #2 > 0594 
00000000' ai 9F 00248 PUSHAB DBGSCS_OUTPUT : 
8 DD 00251 PUSHL R ; 
000000006 00 03 FB 00253 CALLS #3, DBGSNMATCH ; 
01 50 D1 0025A CMPL ~=s RO. #1 : 
A2 13 0025p BEQL © 22$ : 
01 DD 0025F PUSHL #1 : 0599 
00000000° EF oF 0 61 PUSHAB DBGS$CS_CR : 
: DD 00267 PUSHL R : 
000000006 00 é FB 00269 CALLS #3, DBGSNMATCH : 
01 0 »d1 00 29 CMPL RO 7 : 
OF 12 0027 BNEQ 25$ : 
00028000 8F oD 00275 PUSHL #164048 : 0600 
000000006 00 01 FB 00 ie CALLS #1, LIBSSIGNAL ; 
Ap 11 00 Be BRB 23§ : 
58 DD 00284 25$:  PUSHL RB > 0607 
000000006 00 1 FB 0 86 CALLS #1, DBGSNNEXT WORD ; 
16 AE 010 8F B 80 V #270, STG_DESC+ : 0609. 
16 AE 60 9B 0029 MOVZBW (CS). STG7DESC > 0610 
18 AE 01 AO 9E 00297 VAB_ 1(ROS, STG_DESC+4 : 0611 
14 AE 9F 0029C PUSHAB STG_DESC : 0612 
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BR, 
16-Sep- 138% 9 0 08: $:¢0 AX-11 Bliss-32 V4.0-742 Page $3 
1a-Sep- DEBUG. SRCJDBGNSHOW.B32; 1 (3) 
1 DD 0029F PUSHL a $ 
00028238 8F DD O02Al PUSHL #164408 ; 
000000006 00 3 FB OO2A7 CALLS a3 LIBSSIGNAL : 
1 11 000A BRB 23§ : 0580 
2 po 0280 268 PUSHL #2 : 0617 
00000000' Ef F 0028 PUSHAB DBGSCS_SCOPE : 
§ DD 0028 PUSHL R : 
000000006 00 : FB OOOBA CALLS #3, DBGSNMATCH : 
01 0 bi 002c1 CMPL #1 : 
08 if 002C4 BNEQ 2 : 
08 08 09 FO 002C6 INSV #9, #8, #8, @VERB_NODE + 0619 
76 11 002CC BRB 31§ : 0466 
02 DD OOSCE 278 PUSHL #2 : 06 
00000000' EF 9F 00200 PUSHAB DBGSCS_SEARCH : 
8 DD 00206 PUSHL : 
000000006 00 03 FB 00208 CALLS #3, DBGSNMATCH : 
01 50 D1 O02DF CMPL =seRO., #1 : 
08 12 002E2 BNEQ 28 : 
08 08 12 FO 00264 INSV #18, #8, #8, @VERB_NODE + 0626 
58 11 OO2EA BRB 31$ : 
03 oD OOgEC 28$: PUSHL #3 + 0631 
00000000" EF 9F OOZEE PUSHAB DBGS$CS_SELECT ; 
58 DD 002F4 PUSHL R : 
000000006 00 03 FB 002F6 CALLS #3, DBGSNMATCH : 
01 50 D1 kta CMPL RO, #1 : 
08 12 00300 BNEQ 29 : 
08 08 18 FO 00302 INSV #24, #8, #8, AVERB_NODE > 0632 
3A 11 00308 BRB 31$ ; 
02 DD O030A 298: = PUSHL #2 : 0637 
00000000" EF 9F 0030C PUSHAB DBG$CS_SOURCE : 
58 DD 00312 PUSHL R : 
000000006 00 03 FB 00314 CALLS #3, DBGSNMATCH : 
01 50 01 00318 CMPL #1 : 
08 12 OO31E BNEQ 30 : 
08 08 OF FO 00320 INSV #15, #8, #8, @VERB_NODE > 0638 
1C 11 00326 BRB 31$° ; 
01 DD 00328 30$:  PUSHL #1 > 0641 
00000000" EF 9F 0032A PUSHAB DBGSCS_STEP : 
58 DD 00330 PUSHL R : 
000000006 00 03 FB 00332 CALLS #3, DBGSNMATCH ; 
01 50 01 00339 CMPL R0 #1 : 
09 if 0033¢ BNEQ 32$ ; 
08 08 OA FO 0033 INSV #10, #8, #8, @VERB_NODE > 0643 
0560 31 00344 31$ BRW 89$ > 0466 
02 dD 00347 328 PUSHL #2 + 0649 
00000000° EF OF 00 49 PUSHAB DBGS$CS_SYMBOL : 
8 DD 0034F PUSHL R ; 
000000006 00 03 FB 00351 CALLS #3, D8GSNMATCH : 
01 30 D1 00358 CMPL RO a : 
03 13 00358 BEQL ©. 33 ; 
O3FB 31 00350 BRW 72$ : 
52 Qi 00 0360 33$ MOVL #1, GLOBAL_FLAG > 0664 
4 ¢ 0 6 CLRO ADOR FLA > 0665 
08 08 13 F 6 INSV 1 #8. aVERB. NODE > 0671 
50 08 Ac 04 ct 0 6 ADDL3 #4 “VERE 07 : 0678 
6E 60 9E 00 MOVAB (RO), : 
01 DD 00373 348 PUSHL #1 + 0679 
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1o-800- 1383 95:06:80 DEBUG. SRC IDBGNSHOW.B32:1 . (3 vi 
00000000' gf 9F 00375 PUSHAB DBGS$CS_SLASH ; : 
8 DD 00378 PUSHL R : ; 
000000006 00 g FB 037D CALLS #3, DEGSNMATCH : ; 
0 0 : 0 84 BLES) Sse $ : ; 
OT BD OOSa 358: Pusan 98 > 0692 
00000000' Ef oF ; ec PUSHAB * pts : ; 
000000006 00 63 FB 00394 CALLS #3, DBGSNMATCH : ; 
01 0 D1 00398 CMPL ~=sRO. #1 : F 
iC iF 039 BNEQ 3 ; ; 
54 o1 D 00 A MOVL #1, ADDR_FLAG + 0694 ; 
3 DD 003A PUSHL #3 + 0695 ; 
000000006 0 gi FB O03A5 CALLS #1, DBGSGET_TEMPMEM : ; 
55 9 DO OO3AC MOVL RO, ADVERB_NODE 3 3 
00 BE 53 DO OO3SAF MOVL ADVERB_NODE, @LINK + 0696 3 
6 08 Ad 9F 00383 MOVAB 8(R3), LIN + 0697 ; 
6 02 90 0038 MOVB #2, (ADVERB_NODE) > 0698 ; 
B? 11 003BA 36$: BRB 34§ + 0685 ; 
02 DD 003BC 37$:  PUSHL #2 + 0705 : 
00000000" EF 9F 003BE PUSHAB DBGS$CS_DEF INED : ; 
8 DD 003C4 PUSHL R : F 
000000006 00 03 FB 003C6 CALLS #3, DBGSNMATCH : ; 
01 50 D1 003CD CMPL = RO, #1 : : 
08 12 00300 BNEQ : ; 
08 08 15 FO 00302 INSV #21, #8, #8, @VERB_NODE + 0707 ; 
99 11 00308 BRB 34$ > 0685 F 
02 DD OO3DA 38$:  PUSHL #2 : 0713 : 
00000000" EF 9F 003DC PUSHAB DBGS$CS_DIRECT ; ; 
58 DD 003E2 PUSHL F : 
000000006 00 03 FB O003E4 CALLS #3, DBGSNMATCH ; ; 
01 50 D1 003EB CMPL = RO, #1 ; : 
19 12 OO3EE BNEQ 39% ; ; 
03 DD 003F0 PUSHL #3 > 0715 ; 
000000006 00 01 FB 003F2 CALLS #1, DBGSGET_TEMPMEM ; ; 
53 50 DO 003F9 MOVL RO, ADVERB_NODE : : 
00 BE 53 DO OO3FC MOVL ADVERB_NODE, @LINK : 0716 5 
6£ 08 A3 9E 00400 MOVAB 8(R3), LINK : 0717 : 
63 03 90 00404 MOVB #3, (ADVERB_NODE) : 0718 | : 
65 11 00407 BRB 42$ > 0685 : 
01 DD 00409 39$:  PUSHL #1 + 0724 : 
00000000' Ef OF 00408 PUSHAB DBG$CS_GLOBAL ; 
8 DD 00411 PUSHL ; 
000000006 00 93 FB 90415 CALLS #3, DBGSNMATCH ; 
01 0 D1 OO41A CMPL =sRO.. #1 : 
05 if 00410 BNEQ 40 : 
52 1 00 0041F MOVL #1, GLOBAL_FLAG > 0726 
96 11 00422 BRB 26§ > 0685 
01 po 0424 40$:  PUSHL #1 : 0732 
00000000' Ef F 04 6 PUSHAB DBG$CS_LOCAL ; 
8 DD 0042C PUSHL ; 
000000006 00 g FB 004 : CALLS #3, DBGSNMATCH F 
01 0 DI 04 CMPL) SseRO.. #1 ; 
04 2 004 BNEQ 41 ; 
‘ D4 0043A CLRL  GLOBAL_FLAG > 0734 
6 11 0043¢ BRB 46$ > 0685 
1 DD OO43E 41$:  PUSHL #1 > 0741 


7 
ihes Sep-19 4:20 AX-11 Bliss-32 v4.0-74 Page 27 
14-Sep ety 7 95: % ‘$9 DEBUG. S bi SSpausnou- B53 1 ° (3 
00000000' ff 9F 00440 PUSHAB DBGS$CS_TYPE : 
: DD aug PUSHL R : 
000000006 00 Q FB 0044 CALLS #3, DBGSNMATCH : 
1 0 D1 0044F CMPL #1 : 
iC iF 0452 BNEQ 4 : 
55 04 D O44 MOVL #1, TYPE_FLAG t 0743 
3 DD 00457 PUSHL a3 + 0744 
000000006 38 1 FB 0459 CALLS DBGSGET TEMPMEM : 
DO 0046 MOVL RO. Q 3 
00 DO 0046 MOVL ADV ns “NODE, al INK : 0745 
ef 08 A 3 0046 MOVAB 8(R + 0746 
6 01 9 00468 MOVB sot] tADVERG _NODE) + 0747 
66 11 46 42s: BRB 4 : 0685 
03 000000006 0 8 004 43$: BLBS DBGSGL_DEVELOPER, 45$ + 0756 
039 1 00477 44$: BRW $ : 
03 0D 00474 45$: PUSHL #3 : 0765 
00000000' EF 9F 0047C PUSHAB DBGS$CS_RST : 
8 DD 00482 PUSHL : 
000000006 00 03 FB 00484 CALLS #3, DBGSNMATCH : 
01 50 D1 00488 CMPL = RO, #1 : 
19 12 0048; BNEQ 47$ : 
03 0D 0049 PUSHL #3 : 0767 
000000006 0 01 FB 0049 CALLS #1, DBGSGET TEMPMEM ; 
5 50 DO 00499 MOVL RO. ADVERB_NOD 3 
00 «BE 53 D0 0049C MOVL ADVERB. “NODE. aL INK : 0768 
6 08 A3 9E 004A0 MOVAB 8(R3),~LIN : 0769 
3 04 90 004A4 MOVB = #4 (ADVERB. NODE) : 0770 
2D 11 004A7 46$: BRB 48$ : 0759 
03 DD 004A9 47S: PUSHL #3 : 0776 
00000000° ef 9F O004AB PUSHAB * pps ; 
8 DD 00481 PUSHL F 
000000006 00 03 FB 00483 CALLS , DBGSNMATCH ; 
01 50 D1 004BA CMPL R0 #1 : 
B88 12 0048D BNEQ aus F 
03 DD 004BF PUSHL : 0778 
000000006 00 01 FB 004C1 CALLS a. DBGSGET TEMPMEM : 
53 20 DO 004¢8 MOVL RO, B_NODE F 
00 =«=«BE 53 pO 004C¢B MOVL ADV ne “NODE, @L INK : 077 
6 08 A’ 9E O04 CE MOVAB 8(R : 078 
6 05 90 00403 MOVB so CADYERS _NODE) : 078 
FE9A 31 00406 48$:  BRW 52g : 075 
00 BE D4 09409 49$: CLRL_  a@LINK : 08¢ 
50 08 Ac 04 ¢€1 0040C ADDL3 #4, VERB_NODE, RO : 08 
60 D3 OO4E | TSTL (Rb) ; 
18 «1 4E3 BEQL 51$ : 
15 08 BC 8 08 FD DAES CMP7V #8, #8, @VERB_NODE, #21 : 0837 
10 12 004€8 BNEQ 1§ ; 
00028F10 8F DD QueD PUSHL #167696 + 0840 
000000006 00 030s Fe oer 50$: CALLS H, DBGSNMAKE _ARG_VECT : 
04 DD 004FD 518 PUSHL #4 + 0847 
000000006 00 gi FB O4FF CALLS #1, DBGSGET TEMPMEM ; 
08 AE 4 D 8206 MOVL RO. NOUN_NODB 3 
50 08 AC 08 C1 0050A ADDL3 #8, VERB-NODE, RO + 0848 
60 08 AE 00 0508 MOVL § NOUN_NODE, RO) : 
bE 08 AE 00 00 13 MOVL § NOUNTNODE : 0849 
5B 0c ac 00 0051 MOVL MESSAGE fect NaN > 0920 
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AX-11 Ot genre V4.0-742 
DEBUG. SRC JDBGNSHOW.B32; 1 


2 
ADDR_FLAG], 16(SP) 
FLAG, 16(SP) 


' ow 


e IK 

#4, BATA_LIST, RO 
(RO), RI 
DBGSGB_LANGUAGE , a7 
9$ 
"1 
DBGSCS_CR 
#3, DBGSNMATCH 

4048 
#1, LIBSSIGNAL 
4(R8), POINTER 
POINTER, DBGSGL_UPCASE_COMMAND_PTR 
POINTER, DBGSGL_UPCASE_COMMAND_PTR+4 
P.ABO 


#164706 

#3, LIBSSIGNAL 

(RB) H 

#6, (POINTER), P.ABP 

POINTER, NEW_POINTER 
(R7), RO 

a, RO, =(S 

#1, DBGSGET TEMPMEM 

RO, NEW POINTER 


STG 

NGTH, STG_DE 
-POINTER: STG_DESC+4 
ESC+ 


a = (SP) 
BGSNSAVE_STRING 


#°M<RB,R10,R11> 
#3, DBGSNSAVE_STRING 


50 08 
15 08 BC 
01 AG 
000000006 
06 00 01 
000000006 
04 
50 
000000006 
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01 
57 04 
02 Ad 
000000006 
15 08 BC 
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16-Sep-1984 02:04:20 AX=-11 Bliss-32 V4.0-742 
19-808- 1382 96:06:60 DEBUG. SRC ]DBGNSHOW.B3251 
9 0615 BLBC_ RO, 64$ 
C1 00618 60S ADDL3 #4. NOUN_NODE, RO 
DO 00610 MOVL \eisp), TR 
: 621 CMP7V #8, #8, @VERB_NODE, #21 
627 BNEQ 61$ 
3 629 BRW 66$ 
0 0062C 61$:  MOVL (R10), TMP_BUF1 
A 96 F MOVZBL (TMP Bur - R 
A 006 : LOCC #92,~R0, 1(TMP_BUF1) 
12 006 BNEQ  62$ 
D4 0063A CLRL sR 
£9 06 C 628:  BLBC Ri, 63 
DD F PUSHL  TMP_BUF1 
DD 00641 PUSHL #1 
DD 00643 PUSHL #164144 
FB 00649 CALLS #3, LIBSSIGNAL 
9A 0690 63$: WOVZBL (TMP_BUF1), RO 
20 00695 CMPC , TCTMP_BUF1), #0, #6, P.ABQ 
12 00656 BNEQ  66$ 
BB 0066 PUSHR #*M<R8,R10,R11> 
FB 00664 CALLS #3, DBGSNSAVE_STRING 
: 00668 64$: BLBS RO. 65$ 
1 0066 BRW 88 
DO 00671 65$: MOVL (R10), TMP_BUF2 
9A 00675 MOVZBL (TMP_BUF1)> RO 
9A 00678 MOVZBL a@TMP~BUF2, R1 
CO 0067¢ ADDL2 1, RO 
9 0067F MOV 1(RO), R2 
C7? 00683 DIVL 4, R2, R 
9F 00687 PUSHAB 1(RO) 
FB 0068A CALLS #1, DBGSGET_TEMPMEM 
DO 00691 MOVL RO, (R10) 
DO 00694 MOVL (R10), R7 
DO 00697 MOVL 2, (R7) 
9A 0069A mOVZBL (TAP_BUF1), RO 
28 0069D MOVC3 RO, T(TMP_BUF1), 1(R7) 
A 006A3 MOVZBL (TMP_BUFIJ, RO 
£0 006A6 ADDL2 R7, RO 
0 006A9 MOVE P.ABR, 1(RO) 
9A 00681 MOVZBL aTMP_BUF2, R1 
ci 0685 ADDL3 #1, TMP _BUF2, R7 
8 O06BA MOVC 1; (R73, 2¢RO) 
bp O6BF 66$: § PUSHL 
F 006C1 PUSHAB DBG$CS_COMMA 
DD 006C7 PUSHL 
FB 06C9 CALLS #3, DBGSNMATCH 
: 9600 BLBC =. «RO. 67S 
1 0060 Rw 
D4 006D6 678 CLRL LINK 
FD 609 CMP2V #8, #8, @VERB_NODE, #21 
60F Ea. 43s 9 
pd 6E1 PUSHL #2 
F 006E3 PUSHAB DBG$CS_IN 
DD 006E9 PUSHL R 
FB OGEB CALLS #3, DBGSNMATCH 
E9 O06F BLBC =—_-«RO.. «69 
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1bese -1984 7:04:20 AX-11 Bliss-32 V4.0-742 Page 30 
12-8 08-19be 95:06:30 DEBUG. SRC IDBGNSHOW.B32:1 . (33 
01 po FS PUSHL #1 : 1008 
gf F O06F PUSHAB DBGS$CS_CR : 
DD 006FD PUSHL R : 
FB ort CALLS #3, DBGSNMATCH : 
E BLES ~=—s_- RO, 68S : 
B DD 007 PUSHL 1 : 1012 
C ¢1 007 ADDL #12, NOUN_NODE, RO + 1011 
DOD 854 PUSHL RO : 
DD 0071 PUSHL Rs : 
FB 0714 CALLS #3, DBGSNPARSE_SCOPE_LIST : 
9 : 0718 BLBS =_-RO, 69S : 
1 Orig BRB + 1014 
F OD 00720 688: PUSHL #164048 : 1019 
1 re 0726 CALLS #1, DBGSNMAKE_ARG_VECT : 
6 11 00720 BRB 70$ : 
1 DD 0072F 69S: PUSHL #1 + 1028 
Ef oF 907 1 PUSHAB DBGSCS_CR : 
8 DD 00737 PUSHL : 
93 FB 00739 CALLS #3, DBGSNMATCH : 
O.€ 90740 BLBS RO, 76$ : 
58 DD 0074 PUSHL + 1031 
gi FB 00745 CALLS #1, DBGSNNEXT_WORD : 
01 FB 0074E CALLS #1, DBGSNSYNTAX_ERROR : 
50 b0 00755 70$: MOVL RO, (R11) : 
48 31 00758 71$: BRW Re : 1032 
00 €8 90738 728: BLBS  DBGSGL_DEVELOPER, 73$ : 1040 
2 ree its : 
02 DD 00766 73S PUSHL #2 + 1041 
a4 oF 90768 PUSHAB DBGSCS_TASK : 
03 FB 80795 CALLS #3, DBGSNMATCH : 
aa a — 
1E 6 0077¢ INSV #30, #8, #8, @VERB_NODE + 1043 
88 bb 00785 pusnt RB — 
02 FB 00787 CALLS #2, DBGSNPARSE_SHOW_TASK ; 
1¢ 11 0078 BRB 76$ + 0466. 
04 DD 00790 75$: PUSHL #4 : 1050 
Bh 3 3, SUR ppotcs_renmuna , 
93 FB 079A CALLS #3, DBGSNMATCH : 
0 »1 007A1 CMPL RO, #1 : 
09 iF O7A4 BNEQ 7 : 
19 FO 007A6 INSV #25, #8, #8, @VERB_NODE + 1051 
80 31 OO7AC 76$: BRW 81$ : 
01 bb O7AF 77$: PUSHL #1 : 1056 
gf F 00781 PUSHAB DBGS$CS_TRACE : 
8 DD 00787 PUSHL : 
FB 0789 CALLS #3, DBGSNMATCH : 
0 D 7¢ CMPL =soRO, #1 : 
9 is 7¢ BNEQ 7 : 
8 f 7¢ INSV #11, #8, #8, @VERB_NODE : 1058 
31 007CB BRW 84$ : 1061 
2 DD OO7CE 78%: PUSHL #2 : 1065 
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000000006 
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oc 
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39 
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oo 


18 sf 19 
- e - 
12-328-18 
00000000" EF 9F 007D0 
m S3r88 
bf 7DF 
12 Ore 
1 pd 7E4 
00000000° Ft F OO7E6 
SPO OOTEE 
ae 
00000000' Ef oF OFFA 
08 rB a8o2 
0 £8 0080 
01 BD 980¢ 79$: 
00000000° Ef F OO80E 
8 DD 00814 
03 FB 00816 
50 €9 0081D 
00028000 | ea 8h conse 
Od £0 00829 gos: 
ge) SBN Ble 
6— 11 00837 i 
01 DD 00839 83s: 
00000000' EF 9F 00838 
SPB ooses 
30 oT o8uh 
OE 5 0084F 
et EB Been 
03 FB 0085 
03 Oe ROBES ass 
00000000' Ef 9F 00865 : 
8 DD 00868 
g FB 0086D 
a8 3 Hrs 
1A F 79 
oo Mt Ob BOER 
58 DD 0882 
02 Fe 08 
Ht op BREE es. 
8 oe Ai 
Or F 9 
0 09 OF gre: 
04 8 A3 88$: 
4 ng 
01 BO a 89$: 


4 02:04: AX-11 Bliss-32 v4.0-742 
2 95:06:60 DEBUG. SRC IDBGNSHOW.B3251 
PUSHAB DBGS$CS_TYPE 
PUSHL R 
CALLS #3, DBGSNMATCH 
CMPL =soRO,. #1 
BNEQ 83$ 
PUSHL #1 
PUSHAB DBG$CS_SLASH 
PUSHL R 
CALLS #3, DBGSNMATCH 
BL BC RO, 82$ 
USHL #1 
PUSHAB DBGSCS_OVERRIDE 
PUSHL R 
CALLS #3, DBGSNMATCH 
BLBS RO. 80$ 
PUSHL 
PUSHAB DBGSCS_CR 
PUSHL 
CALLS #3, DBGSNMATCH 
BLBC 
PUSHL #164048 
BRW 50$ 
INsv #13, #8, #8, AVERB_NODE 
INSV #12, #8, #8, @VERB_NODE 
BRB 89$ 
PUSHL #1 
PUSHAB DBGSCS_WATCH 
PUSHL R 
CALLS #3, DBGSNMATCH 
CMPL SRO. #1 
BNEQ 85 
INSV #14, #8, #8, @VERB_NODE 
MOVQ  VERB_NODE, =(SP) 
PUSHL Rs 
CALLS #3, DBGSEVENT_SHOW_CANCEL_SYNTAX 
PUSHL #3 
PUSHAB DBG$CS_WINDOW 
PUSHL 
CALLS #3, DBGSNMATCH 
CMPL =sRO, #1 
BNEG  79§ 
INSV #26, #8, #8, @VERB_NODE 
PUSHL VERB_NODE 
PUSHL 
CALLS #2, DBGSSCR_PARSE_SHOWIND_CMD 
BRB 89$ 
PUSHL R8 
CALLS #1, DBGSNNEXT_WORD 
PUSHL R 
CALLS #1, DBGSNSYNTAX_ERROR 
MOVL RO, @MESSAGE_VECT 
MOVL #4. RO 
RET 
MOVL #1, RO 
RET 


rom 
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14-Sep-1 DEBUG. SRC JDBGNSHOW.832;1 
; Routine Size: 2219 bytes, Routine Base: DBGSCODE + 0000 
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DBGNSHOW 16-Sep-1984 02:04:20 AX-11 Bliss-32 V4.0-742 Page 33 
voe~000 Ve-Sep-19be 3:17:56 — LoeaUG. SRCIBBGNSHOU B48. 1 9 (a) 
; .999 1129 1 ROUTINE dbg$nparse_show_key (input_desc, verb_node, message_vect) = 

; 1000 1130 1 !4+ 

: 1001 1131 1°! Functional Description 

H 1S 11 § zz 

3 190 11 zz This is the parse network for the SHOW KEY command. 

; 1004 11546 1! 

; 1005 1135 1 ! Routine Inputs 

; 1006 11 $ :-+ 

; 1007 11 1! input_desc - A pointer to a string descriptor for the 

; 1008 1138 1! remaining input. 

3; 1009 1139 1! verb_node - A pointer to the verb node for the SHOW 

; 1010 1140 1! KEY command, which will be the top-level 
; 1011 11441 1! node in the command execution tree. 

3 Ole 1308 . 4 message_vect - A pointer to an error message vector. 

3; 101 11443 1! 

3: 1014 1144 1 ! Routine Outputs 

3; 1015 1145 1! 

3; 1016 1146 1! A command execution tree is constructed starting at the verb 

3; 1017 1147 1! node: 

; 1018 1148 1! 

; 1019 1149 1! (=  eseees coecce 

; 1020 1150 1! | VERB | => | NOUN } 

; 1021 1157 1! = = eeeeee = coscce ‘ 

; 1022 1136 1! : The DBGSB_VERB_COMPOSITE field contains a 

3 1023 1153 1! = aaees<- value for the SHOW KEY command. 

> 1024 1154 1! ‘ADVERBO: ; é 

; 1352 1122 : sean Sebi’ The noun node has the following information: 
3; 1027 1157 1! = — seeecce DBG$L_NOUN_VALUE - A pointer to a descriptor 
; 1028 1158 1! ‘{ADVERB1; that contains the key-name. 

3; 1029 1159 1! = — saasece 

; 1030 1160 1! 

: 1031 1161 1! = — saeco 

; 1036 11c8 i ‘ADVERBS; The adverb nodes appear as follows: 

3 1034 1164 1! DBGSL_ADVERB_VALUE = Value or location of data 
3; 1035 1165 1! or this qualifier. 

; 19s6 Bh ! DBG$L_ADVERB_LINK = Link to next Adverb-node. 
; 1038 1168 1! The te descriptor is updated to point past the 

; HF 1199 : input that has been parsed. A completion code is returned: 

3 1041 bie ae @ STSS$K_SUCCESS = The input was aay Med ba parsed. 

; Hk 1176 1? STSSK_SEVERE - There were errors during the parse. An error 

3 104 pie ee message vector is constructed and returned 

> 1044 1174 1! in message_vect. 

; 1045 1175 1 !-- 

; 1966 1176 BEGIN 

3: 104 1177 

3; 1048 1178 MAP : F 

3; 1049 1179 input_desc : REF BLOCK C,BYTE), ! String descriptor 
; 1050 1180 verb_node : REF dbg$verb_node; 

: 1051 1181 

: 1926 11 § IND 

3 105 11 dbg$cs_all = UPLIT BYTE (3. "ALL ) , 

3; 1054 1184 dbg$cs_brief = UPLIT BYTE (5, ‘BRIEF*) 

; 1055 1185 dbg$cs_directory = UPLIT BYTE (9, "DIRECTORY'), 


ERs Ey Se eee 


DBGNSHOW 1 
voe~000 14-S 
826 8 dbg$cs_state = UPLIT BYTE (5, ‘STATE'), 
dbg$cs_nostate = UPLIT BYTE (7, "NOSTATE 

058 : dbg$cs_left_paren = UPLIT BYTE (1, dbg$k_lef 

059 dbg$cs_right_paren = UPLIT BYTE (1, dbg$ 

060 9 dbg$cs_comma = UPLIT BYTE (1, dbg$k 

061 9 dbg$cs_cr = UPLIT BYTE (1, dbg$ 

066 9 dbg$cs_equal = UPLIT BYTE (1, dbg$ 

et 4 dbg$cs_slash = UPLIT BYTE (1, dbg$k_ 

065 S LITERAL 

066 9 dbg$k_lowest_qualifier = 0, 

067 9 dbg$k_directory = 0, ! of the tree that 

068 9 dbg$k_all = 1, 
9 9 dbg$k_brief = ¢° 
70 0 dbg$k_state F = 3, 
a 8 dbg$k_highest_qualifier = 3; 
se 0 LOCAL 
74 0 all_flag INITIAL(FALSE), 
75 0 dir flag INITIAL(FALSE), 
76 0 define_kind INITIAL(O), : 
77 0 noun_node REF dbg$noun_node, H 
78 0 new_noun_node REF dbg$noun_node, : 
79 0 adverb_node REF dbg$adverb_node, ! 
80 1 new_adverb_node REF dbg$adverb_node, ! 
81 1 state_name_node REF dbg$state_name_node, 
ag 1 new_state_name_node REF onretete name_node, 
8 1 ptr : REF VECTORC,BYTE), : 
84 1 status, 

85 1 cone, hey ,cese : REF dbg$stg_desc, ! 
My : define_key_value; : 


Check whether we are on a system that allows keypad 
iF — -dbg$gb_keypad_input 
SIGNAL (dbg$_nokeydef); 


' FILL in the fact that this is a SHOW KEY command in 
And clear the noun Link value. 


SRAVLSSSLEAEASS 


verb_node f4bo$b_verb_conposite] = show_key; 
verb_node (Cdbg$l_verb_object_ptr] = 0; 


Build adverb List with defaults. 


new _adverb_node = dbg$get_tempmem(dbg$k_adverb_node_si 


s 


verb_node ([dbg$l_verb_adverb_ptr] = .new_adverb_node; 
adverb_node = .néw_adverb_node; 


adverb_node ([dbg$b_adverb_literal] 
adverb_node [dbg$l_adverb_value] 
adverb_node [dbg$l_adverb_link 


dbg$k_lowest_qual 


0; 


a a dd wd = 2 


Be Se Oe Fe Oe Ge Be Ge Se Se Ge Bs Be Ge Se Se Ge Fe Ge Se Ge Ge Ge FHS Se Se FH Ss Be Be Se Ge Ge Ss Ge Ge Se HSH Ss Se Se Ss Se Se BESS Se Se Se Se Ss HSE Se 
a ll a ee el ee a el a ed el a od 
RIPIPOPIPSASNYIDIPNINDNININYNPIMYNININPYNINYNININYNINININYINIANINPININPINIPYNININIPNININIDY 2 I SO SS SS 


ek kk at at oo SOSSS DODO SOLA SH oa DD DDD. 
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), 
t_parenthesis) 


=comma), 
_car_return), 


T 
ke 
k_right_parenthesis), 
k \) 

“equal), 

k 


slash); 


' These correspond to the adverb nodes 


is being constructed. 


True if /ALL 
True if /DIRECTORY : 
Value of DELETE/KEY + —esaa 
Pointer to a noun node 
Another pointer to a noun node 
Pointer to a noun node 
Another pointer to a adverb node 
! Pointer to a state-name node 

_ ._ | Another pointer to a state-name node 

Points into input string 


String desc. for DELETE/KEY symbols 


' Value for the qualifier 


input. 


the verb node. 


ze); ! Get first node 


ifier; ! Initialize first node 
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define_kind = dbg$k_ lowest qualifier + 1; 
WHILE set ine_hind CEQ dbgSk_highest_qualifier DO ! Build rest of adverb List 


new edver’ neds = dbgSget.temppen(dbgSk sdverb_node_size); 
adverb_node (dbg$l_adverb_link] = .new_adverb_node; 
adverb_node = .new_adverb_node; 


adverb_node (dbg$b_adverb_literal] = .define_kind; 
IF eject inenking EQC dbg$k-state 


EGIN 

: For the adverb node that has state-name information, the default 

' is set up so that the adverb node points to a state=name node that 
points to a'vescriptor that contains the state-name. 


PPPS E™ = ££ 


temp_key_desc = GogSort tengnen(e): 
temp_key_desc Cdsc$w_length] = 0; 
temp_key_desc [dsc$b_dtype dsc$k_dtype_t; 
temp_key_desc Ldsc$b_class dsc$k_class_d; 
temp_key_desc [dsc$a_pointer] = 0; 


This routine returns the current state name. 
smg$set_default_state(dbg$gl_key_table_id, 0, .temp_key_desc); 
state_name_node = Gogtort tenpnen(dbetk state nane.size); 
state_name_node Edbg L_state_name_ptr] = .temp_key_desc; 

state name_node [dbg$l_state_name_link] = 0; 

adverB_node (dbg$l_adverb_value] = .state_name_node; 


ELS 
In all other cases, the default value is set to zero 


adverb_node (dbg$l_adverb_value] = 0; 
ee = .define_kind + 1; 
adverb_node (dbg$l_adverb_link] = 0; 
WHILE (NOT dbg$nmatch(.input_desc, dbg$cs_cr, 1)) AND 
(,input_desc Cdsc$w_lenmgth] GTR 0) Bo 
BEGIN 
fen ennt EN, PUR _MOREs dbg$cs_slash, 1) 
BEGIN 
Find out what kind of qualifier it is 
! Initialize value 


WIR =O ODNOAMNE WIN $0 ODNAMNE WN $$ O DOONAN E WN (OO DNAUNE WN (ODODNOUSW 


define_key_value = 0; 


SSS STS SS EEE EEE & BANNAN INN 3 SS es 
OOO OO WW 00 INI NSINSINSINSININNIOAA AAA AAAOOAO 


So 


! Set Define_key with qualifier code, and get value of define_key_value. 
SELECTONE TRUE OF 
SET 


a a ek a ed od nd td dd dd dd 
a ed ed od nd od od dd 
a a ed ed nd wd ed dd 
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Cdbg$nmatch(.input_desc, dbg$cs_all, 1)] : 
BEGIN 


! Check if a key-name has already been found, this makes the 
} /ALL invalid. 


if .verb_node Cdbg$l_verb_object_ptr] NEQ 0 


SIGNAL (dbg$ conflict); 
define_kind = dBg$k_all; 
define_key_value = T; 
all_flag = TRUE; 

END; 


kdbgbrastch(. input_dese. dbg$cs_nostate, 3)] : 
define_key_value = 0 


getine king = dbg$k_state; 


Cdbg$nmatch(.input_desc, dbg$cs_state, 1)] : 
BEGIN 


define_key_value = 0; 
define_kind = dbg$k_state; 


temp_key_desc = dbgtpet . tonpnen (2); 
temp_key_desc(dsc$w_length] = 0; 

temp_key_descldsc$b_dtype] dsc$k_dtype_t; 
temp_key_desc(dsc$b_class dsc$k_class_d; 
temp_key_desc(dsc$a_pointer] = 0; 


Look for = 


ay dbg$nmatch (.input_desc, dbg$cs_equal, 1) 
report_error; 
: Look for a left paren 


eee (.input_desc, dbg$cs_left_paren, 1) 

BEGIN 

Pick up the first state name 

status = dbg$read_key_info (.input_desc, 
.temp_Key_desc, 
-Message_vect); 

IF NOT .status 

RETURN stsS$k_severe; 
new _state_name_node = GopSpet, tenpnen(dbgsh_stete_nane_size): 
ate 


state_namé_nodé = .new_s _fame_node; 
state_name_node [dbg$l_state_name_ptr] = .temp_key_desc; 


Ss scenrdbstinaibescnnetaddhiaiabedlondperinion 
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state_name_node [dbg$l_state_name_link] = 0; 


define_key_value = .state_name_node; 


ne (. input desc, dbg$cs_comma, 1) DO 
temp_key_desc = dbaSpet .tempmem(2); 


: 


3 1 1357 6 

3 (1 1 28 6 

; 1229 1359 6 

; 1230 1360 § 

3; 1231 1361 

= | ¢ 1 ¢ 7 

3; 3 1365 7 temp_key_desc(dsc$w_length] = 0; 

: 1234 1364 7 temp_key_descldsc$b_dtype = dsc$k_dtype_t; 

; 1235 1365 7 temp_key_descldsc$b_class = dsc$k_class_d; 

: : Me : 6 4 temp_key_descl(dsc$a_pointer] = 0; 

; 1$38 1368 7 ! Pick up the next state name 

: 1239 1369 7 : 

3; 1240 1370 7 status = dbg$read_key_info (.input_desc, 

; ise) 1371 7 .temp_Key_desc, 

3 1 eg 1 ie 7 -message_vect); 

3 126 1373 7 IF NOT .status 

> 1244 1374 7 

3; 1245 1375 7 RETURN sts$k_severe; 

> 12466 1376 7 

3: 1247 1377 7 new_state_name_node = Cogtoet , tonpagni gogtk state name. size) ; 
3 1248 1378 7 state_name_node ([dbg$l_state_name_link] = .new_state_name_node; 
3 1249 1379 7 state_name_node = .new_state_name_node; 

3; 1250 1380 7 state_name_node pete trjJ_= .temp_key_desc; 
; 1251 1381 7 state_name_node [dbg$l_state_name_Link] = 0; 

; 1528 1386 7 

3; Ie 1383 6 END; 

3 1254 1384 6 ; 

s 1295 1385 6 ! Eat right paren 

; 1256 1386 6 

; 1257 1387 6 g : 

3; 1258 1388 6 IF NOT dbg$nmatch (.input_desc, dbg$cs_right_paren, 1) 

; 1259 1389 6 THEN 

>; 1260 1390 6 report_error; 

; 1261 1391 6 

; 1368 1336 6 END 

; 126 1393 6 

3 1264 1394 5 ELSE 

3; 1265 1395 6 BEGIN 

; 1266 1396 6 r 

3 1267 1397 6 ! Pick up the only state name 

; 1268 1398 6 : 

3; 1269 1399 6 e : 

3: 1270 1400 6 status = dbg$read_key_info (.input_desc, 

3: 1271 1401 6 .temp_Key_desc, 

3 % 1408 6 -message_vect); 

: \$? 1405 6 IF NOT .status 

3 1274 1404 6 THEN 

3; 1275 1405 6 RETURN stsS$k_severe; 

: 1276 1008 6 J 
3 1277 1407 6 new_state_name_node = Gogtoet, tonpnen<dbgth_stete_nene_size); 
3; 1278 1408 6 state_namé_nodée = .new_state_fame_node; 

3: 1279 1409 6 state_name_node Fdbgst state name. tr) = .temp_key_desc; 
: 1280 1410 6 state_name_node [dbg$l_state_name_link] = 0; 

: 1281 1411 6 definé_key_value = .state_name_node; 

3 1 Hf at g 

3; 128 141 END; 


6! 


#5 


END; 
Cdbg$nmatch(. 308 desc, dbg$cs_brief, 1)] : 
BEGIN 


get ine key_va = 1; 
ec: ne_kind = \abgSk_ brief; 


—> 4 > > 


kebgoraetch(. Input dese. dbg$cs_directory, 1)] : 
Hepverte node [dbg$l_verb_object_ptr] NEQ 0 


pees 7 $_conflict); 
dir hg Rve; 

define_key_v a 1; 

gerine. “kind = dbg$k. directory; 


Ed ek ek ee ee ee ee ee 


COTHERWISE) : 
: report_error; 


! Process the qualifier 
IF .define_key_value NEQ 0 
THEN 


BEGIN 
oever® node = .verb_node ([dbg$l_verb_adverb 


adverb_node = .adverb_node Cdbg$t_ adverb_lin 
adverb vnods "dbgSt. adverb_value] = .define_key_ on 


' This is done to check for /STATE/DIR in the command, 
which is invalid. 

Ff ns nevert_nade Cdbg$b_adverb_literal] EQL dbg$k_state 
. adverb_node (dbg$l_adverb_lLink] = 


END ! End of qualifier search code. 
ELSE 
! Process key name 


BEGIN 
Get key name 


Be Se Se Se Be Be oe Be Se Se Se Se Ge SF Se Ge 5 Se FH Se Se Ge Ge SESE Se Ss Ge SHS Ge SH Gs OF Ss Se Se SF Se Ss Se Ss Se Se Se Se Se SH See Se Sees Sete see 
a a a a a ek a ad nd td ed = a as a ad 
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temp_key_desc = dbg$get_tempmem(2); 


& 
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WHILE T.adverb_node Cdbg$b_adverb_ literal] aba”? -det ine. kind) DO 


! If /STATE=xxxxx was specified, th : Link field is set to one. 


Sen verepaee Cdbg$l_verb_object_ptr] EQL 0) AND (NOT .all_flag) AND (NOT .dir_flag) 


D 
Vv 
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: 1341 1471 4 temp_key_desc(dsc$w_length] = 0; 

3 3 ri} Vole 4 temp_key_descldsc$b_dtype = dsc$k_dtype_t; 

3 3 1475 4 temp_key_descldsc$b_class = gece class; 

: 1344 1474 4 temp_key_descldsc$a_pointer] = 0; 

3; 1345 1475 4 status = dbg$read_key_info (.input_desc, 

31 § 1676 4 -temp_Key_desc, 

3; 134 1477 & -mMessage_vect); 

3; 1548 pes 4 IF NOT .status 

3: 1349 1479 4 THEN 

; 1350 1480 4 RETURN sts$k_severe; 

: 188e 128) ' Mak de for k tri 

3 ! Make noun node for key-name strin 

1388 1485 ‘ . 

; 1354 1484 4 

3 : 2? ion? ? new_noun_node = dbg$get_tempmem(dbg$k_noun_node_size); 
3 138 1487 4 verb_node ([dbg$l_verb_object_ptr] = .new_noun_node; 

; 1358 1488 4 noun_node = .new_noun_node; 

; 1359 1489 4 noun_node [dbg$l_noun_value] =_.temp_key_desc; 

: 1360 1490 4 noun_node ([dbg$l_adjective_ptr] = 0; 

; 1361 1491 4 noun_node Cdbg$l"noun_Link] = 0; 

3 1308 1336 4 END 

3; 136 1493 4 

3 1364 1494 3 

: 1365 1495 3 report_error; 

: 1366 1496 3 

3; 1367 1497 2 END; ! End While 

; 1368 1498 § 

3; 1369 1499 ! Check to see if key-name string or /ALL or /DIRECTORY has been entered. 
:; 1370 1500 ! If not, return a message and error status. 

3 1371 1501 ! 

3 136 1306 } 
3; 137 150 IF (.verb_node Cdbg$l_verb_object_ptr] EQL 0) AND (NOT .all_flag) AND (NOT .dir_flag) 
3 1374 1504 THEN 

3; 1375 1505 BEGIN 

; 1376 1506 -message_vect = dbg$nmake_arg_vect(dbg$_needmore) ; 

; 1377 1507 3 RETURN sts$k_severe; 

3; 1378 1508 END; 

3; 1379 1509 

3; 1380 1510 RETURN sts$k_success; 

3 1381 1511 1 END; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


03 60138 P.ABS: .BYTE 3 
4C 4C 41 Q01 *ASCII = \ALL\ 
05 OO12A P.ABT: .BYTE 
46 45 49 52 ag 01 eASCII = \BRIEF\ 
0 0150 P.ABU: .BYTE 
59 52 4F 54 43 45 52 49 44 00131 »ASCII = \DIRECTORY\ 
Q bt A P.ABV: .BYTE 
45 54 41 54 1 8 eASCII = \STATE\ 
0 Bie P.ABW: .BYTE 
45 546 41 54 53 GF 4€E 141 »ASCII = \NOSTATE\ 
28 01 00148 P.ABX: .BYTE 1, 40 
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9 01 QOI4A P.ABY: .BYTE 1, 41 3 
C Ol QO1KC Baz: BYTE 11 44 ; 
D QI 14— P.ACA: .BYTE 1, 13 3 
D Q1 Bie BACB: “BYTE 1, 6] 3 
spent. fais P.ABS 
DBGSCS_BRIEF= P.ABT 
DBGSCS_DIRECTORY= P.ABU 
DBGSCS-STATE= P. ABV 
DBGS$CS-NOSTATE= P. ABW 
DBGSCS"LEFT_PAREN= P.ABX 
DBGSCS_RIGHT_PAREN= P.ABY 
DBGS$CS_COMMA= P.ABZ 
DBG$CS~CR= P-ACA 
DBG$CS_EQUAL= P.ACB 
DBG$CS~SLASH= P.ACC 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 


OFFC 00000 DBGSNPARSE_SHOW_KEY: 
WORD “Save R2,R3,R4,R5,R6,R7,R8B,R9,R10,R11 3 1129 
SE OC ¢2 00002 SUBL2 #12, SP : 
7 7C 00005 CLRO DIR_FLAG + 1176 
5A 04 00007 CLRL DEF INE_KIND ; 
OD 000000006 00 €E8 00009 BLBS DBGSGB-KEYPAD_INPUT, 1$ : 1221 
00028018 8F ODD 90010 PUSHL #167192 3 1223 
000000006 00 01 FB 00016 CALLS #1, LIBSSIGNAL : 
59 08 AC DO 00010 1$: MOVL VERB_NODE, R9 : 1228 
01 a9 1B 90 00021 MOVB #27, 1(R95 ; | 
OC AE 08 A9 9E 00025 MOVAB 8(R9) 12(SP) : 1229, 
0c 4 D4 OO02A CLRL (SP) : | 
03 DD 00020 PUSHL a + 1234) 
000000006 00 01 FB 0002F CALLS DBGSGET TEMPHEN ; | 
53 50 00 00036 MOVL RO. NEW_ADVERB_N : 
04 a9 53 D0 BOR. MOVL NEW ADVERB VNODE 3 1236. 
55 53 D0 0003p MOVL NEW” ADVERB NODE; ADVERB. NODE 3 1237. 
65 94 00040 CLRB (ADVERB_NOBE) 7 1239. 
06 as 7¢ 9004¢ CLRO 4 CADVERE NODE) : 1240 | 
5A 01 DO 0004 MOVL DEFINE KIND : 1243 | 
03 5A D1 00048 28: CMPL DE EF INE KIND, #3 > 1244 
61 14 00048 BGTR : 
3 oD 90040 PUSHL ‘3 : 1246 
000000006 00 1 FB O004F CALLS DBGSGET TEMPHEN : 
53 DO 00056 MOVL 4% NEW_ADVERB : 
08 AS 53 0 9039 MOVL NEW_ADVERB VNODEN OOF ADVERB NODE ) > 124 
55 53 pO 00050 MOVL NEW ADVERB-NODE, ADVERB_NODE 3 124 
65 5A 90 30060 MOVB DEF INE KIND. (ADVERB B NODE) 3 125 
03 3A D1 006 CMPL DEFINE” KIND, #3 : 125 
F 12 9066 BNEQ : 
02 DD 0006 PUSHL oF > 1258. 
000000006 9 1 F A CALLS #1, DBGSGET_TEMPMEM : 
0 »D 1 MOVL RO) TEMP_KEY_ DESC : | 
62 02060000 8 OD 74 MOVL 447 938. (TEP _KEY_DESC) : 1259. 
04 Ag D4 00078 CLRL 4(TEMP_KEY_DESC)~ : 1262 
52 DD OO07E PUSHL TEMP_KEY EESt 3 1266 
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ooo00000c 6 br 09 SUSHAB DBCSGL_KEY_TABLE. 1D ; 

000000006 00 6 4 09 8 CALL ny SMGSSET_DEFAOLT_STATE : 1206 : 

000000006 99 A, 091 CALLS #1, DBGSGET_TEMPMEM : 3 

4 9 D 098 MOVL RO, STATE _NAME_N : ; 

64 Dd 098 MOVL TEMP_KEY DESC, (STATE_NAME_NODE) : 1269 3 

06 AS D4 4 CLRL 4(STATE_RAME_NODE) 3 1270 ; 

06 AS 54 DO O00A1 MOVL STATE_NAME_NODE, 4(ADVERB_NODE) 3 1271, g 

03 11 OOOAS BRB 4$ 5 1$3) | $ 

04 AS D4 OOOA7 3$ CLRL 4 (ADVERB_NODE) : 1276) : 

3A b6 BOOAA 4$ INCL EF INE_KIND ; 1978 | 3 

A 1 OAC BRA $ + 1264) 3 

08 AS D4 BOOAE 5$ CLRL (ADVERB_NODE) : 1280. 3 

53 04 AC 00 00081 MOVL INPUT_DESC, R3 3 1282 | 3 

01 DD 00085 6$ PUSHL #1 : 3 

00000000" ef 9F 00087 PUSHAB DBGS$CS_CR 3 3 

3 DD 000BD PUSHL R 3 3 

000000006 00 03 FB OOOBF CALLS #3, DBGSNMATCH : 3 

BL Pi Ps 

ce SG ea a eo) 

aS 83 OOOCC 8$ TSTw (R3) 3 1283 3 

F9 13 OOOCE BEQL 7$ : 3 

01 DD 00000 PUSHL #1 3 1286, 3 

00000000' ef 9F 000D2 PUSHAB DBG$CS_SLASH : 3 

3 Dd 00008 PUSHL R3 3 3 

000000006 00 93 FB OOODA CALLS #3, DBGSNMATCH : 3 

” 0236 $7 ooors Ske : ; 

56 D4 O00E7 9$: CLRL DEF INE_KEY_VALUE 7 1294. 3 

01 DD OO0E9 PUSHL 3 1301) 3 

00000000' EF 9F OOOEB PUSHAB DBGSCS_ALL 3 : 

3 DD O00F1 PUSHL : 3 

000000006 00 03 FB OO0F3 CALLS #3, DBGSNMATCH 3 3 

5 et tue ates Mg : : 

OC BE 0§ poor TSTL a12(SP) 3 1306 3 

OD 13 00102 BEQL 3 3 

00028158 8F DD 30108 PUSHL #164184 : 1308 3 

000000006 00 01 FB 0010A CALLS #1, LIBSSIGNAL : 3 

SA 01 DO 00111 108: MOVL #1, DEFINE_KIND ; 1309 3 

56 01 DO 00114 MOVL #1, DEF INE-KEY_VALUE 3 1310) ; 

04 AE 01 pO 00117 MOVL #1, ALL_FLAG 3 1311) : 

if 11 00118 BRB 12$ : 1298 ; 

' 03 DD 0011D 11$: PUSHL @# > 1314 3 

00000690" gf 9F OO11F PUSHAB DBGS$CS_NOSTATE 3 3 

; DD 001 3 PUSHL R 3 3 

000000006 00 9 FB 001 CALLS #3, DBGSNMATCH 2 3 

: pH ines Me : : 

g D4 a ; CLRL DEF INE_KEY_VALUE 3 1316) : 

5A 0 0 1 MOVL #3, DEFINE-KIND 3 1317) : 

018 1 00138 128: BRW 30$ ; 1298 F 

1 0 138 15$: PUSHL #1 ; 1520. : 

00000000' gf F 1 PUSHAB DBGSCS_STATE 3 : 

; DD 0014 PUSHL R 3 3 

000000006 00 03 FB 0014 CALLS #3, DBGSNMATCH 3 : 


<o | 
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01 D1 0014¢ CMPL—séRRO, #1 : 
33 13 o14t BEQL «=ss14$ : 
014C 31 00151 BRW 26$ ; 
56 D4 00154 148: CLRL DEF INE_KEY_VALUE : 1322 
5A DO 001 § MOVL #3, DEFINE-KIND : 132 
DD 001 PUSHL # 3 1325 
000000006 0 FB 1 CALLS #1, DBGSGET TEMPMEM ’ 
5 0 D B16 MOVL ri 4 KEY_DESC : 
62 02060000 8F D0 0016 MOVL  #34471938, (TEMP_KEY_DESC) : 1326 
04 A2 04 0016C CLRL © 4( TEMP_KEY_DESC) : 1349 
07 0D 016 PUSHL #1 7 1334 
00000000° gf F 1 1 PUSHAB DBG$CS_EQUAL F 
3 0D 00177 PUSHL : 
000000006 00 93 FB 0179 CALLS #3, DEGSNMATCH : 
2c 0 € 0180 BLBS RO, 178 : | 
01 bb 0183 15$:  PUSHL #1 ; 1335 
00C00000' Ef F 00185 PUSHAB DBGSCS_CR : 
; DD 00188 PUSHL F | 
000000006 00 0 FB 0018D CALLS #3, DBGSNMATCH : 
03 50 E 00194 BLBC =_«RO,, «16S F 
o10¢ 1 00197 BRW 38$ ; 
53 DD OO19A 16$:  PUSHL R3 
000000006 00 01 FB 0019¢ CALLS #1, DBGSNNEXT_WORD ; 
50 DD OO1A PUSHL ; 
000000006 00 01 FB 001A5 CALLS #1, DBGSNSYNTAX_ERROR : 
0104 31 OO1AC BRW 39$ ; | 
01 DD OO1AF 17$:  PUSHL #1 ; 1341 
00000000' gf 9F 00181 PUSHAB DBGS$CS_LEFT_PAREN : 
3 0D 00187 PUSHL : | 
000000006 00 95 FB 00189 CALLS #3, DBGSNMATCH : | 
03 0 E 901¢0 BLBS RO, 18$ : 
OOA7 31 OOIC BRW $ 
OC AC DD 001C6 18$:  PUSHL MESSAGE_VECT > 1349) 
2§ DD Bote PUSHL TEMP_KEY_DESC 3 1348) 
53 DD 001CB PUSHL ; 1347) 
000000006 00 03 FB 001CD CALLS #3, DBGSREAD_KEY_INFO : 
58 50 DO 00104 MOVL STAT ; 
59 5B £9 00107 BLBC STATUS, 20$ 3 1350 
02 DD 001DA PUSHL #2 7 1354, 
000000006 00 gi FB 901 CALLS #1, DBGSGET_TEMPMEM ; 
08 AE 0 pO OO1E MOVL RO, NEW STATE _NAME_NODE ’ 
54 08 as DO OO1E MOVL NEW_STATE_NAME_NODE, STATE_NAME_NODE ; 1355 
64 52 DO OO1EB MOVL -TEMP_KEY DESC, ~(STATE_NAME-NODE : 1356) 
04 AG D4 OlkE fLRL 4 (STATE_RAME_NODE) > 1357) 
56 54 DO OO1F MOVL STATE_NAME_NODE, DEF INE_KEY_VALUE ; 1358 | 
58 04 Ad 9E OO1F4 MOVAB 4(R4)7 RB : 1378 | 
01 bb O1F8 19$: PUSHL #1 ; 1360. 
00000000' gf F OOIFA PUSHAB DBGS$CS_COMMA ; | 
; DD 00200 PUSHL 3 
000000006 00 g FB 4 CALLS #3, BAGSNMATCH ; | 
4A 0 € 0 BLBC =E-s&aRO, 2°18 ; | 
02 oD 0020C PUSHL 3 1362 
000000006 1 F 0 CALLS #1, DBGSGET TEMPMEM : 
0 D 1 MOVL RO TEMP KEY_DESC ; | 
62 02060000 BF D 1 MOVL  #34471938, (TEMP_KEY_DESC) > 1363 
4 A2 D4 O021F CLRL © &( TEMP_KEY_DESC) : 1366 
C AC DD 00222 PUSHL MESSAGE_VECT 3 1372 | 
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000000006 90 
cB 


000000006 00 
08 


Vion > 
corm 
oO 
co 


DD 
BD 90997 
a 9 
ae 
E 208: 
1 
0 09 8 fF 
AE 0D +3 
4 08 85 DO 0024 
4 5 DO 00248 
8 04 AG SE : 5 
68 D4 5 
Ag 11 00254 
01 dD 00 28 218: 
00000000' 44 +4 8 : 
000000006 00 93 44 4 6 
52 0 3 0267 
FF16 31 O0O26A itt 
oc AC DD 0026D 238: 
26 DD 00270 
53 DD 00272 
000000006 00 03 FB 00274 
58 50 00 00278 
03 4 A OO27E 24$: 
of a os 
000000006 00 01 FB $0586 
08 AE 50 D0 00280 
54 08 as DO 00291 
64 52 00 OSs 
04 A& D4 00298 
56 54 DO 00298 
4— 11 94 
01 DD OO2A0 268: 
00000000" gf 9F 00 Ms 
3 DD 002A 
000000006 00 93 FB OO2AA 
01 0 D1 00281 
08 is 0284 
56 01 00 00286 
5A 3 DO 00289 
11 8 BC 27$: 
1 pp BF 8$: 
00000000° gf F 002C 
DD 00 8 
000000006 99 FB 002C 
1 } O2CcF 
96 0202 
0c E 05 00204 
D 13 00207 
00028158 F DD 09 
00000000G 00 , F OF 
gf 1 OD E6 29%: 
6 1 OD 3 E9 
A 04 EC 


PUSHL TEMP_KEY_DESC 
PUSHL 
CALLS #3, DBGSREAD_KEY_INFO 
OVL Tus 
BLBC STATUS, 24$ 
PUSHL # 
CALLS #1, DBGSGET_TEMPMEM 
MOVL RO, STATE _NAME_ NODE 
MOVL NEW_STATE_NAME_NODE, (R8) 
MOVL NEW" STATE NAME_NODE, STATE_NAME_NODE 
MOVL. TEMP_KEY BESC,~(STATE_NAME-NODEY 
MOVAB 4(R4J, RB 
CLRL 
BRB 19$ 
PUSHL #1 
PUSHAB DBG$CS_RIGHT_PAREN 
PUSHL R 
CALLS #3, DBGSNMATCH 
BLBS RO, 27$ 
BRW 15§ 
PUSHL MESSAGE _VECT 
PUSHL TEMP_KEY_DESC 
PUSHL R 
CALLS #3, DBGSREAD_KEY_INFO 
MOVL RO, STATUS 
BLBS STATUS, 25$ 
BRW 40$ 
PUSHL #2 
CALLS #1, DBGSGET_TEMPMEM 
MOVL RO, NEW_STATE_NAME_NODE 
MOVL NEW_STATE_NAME_NODE, STATE_NAME_NODE 
MOVL §_TEMP_KEY DESC,” (STATE_NAME NODE 
CLRL 4(STATE_RAME_NODE) 
MOVL STATE NAME NODE. DEF INE_KEY_VALUE 
BRA os 
PUSHL #1 
PUSHAB DBG$CS_BRIEF 
PUSHL 
CALLS #3, DBGSNMATCH 
CMPL RO, #1 
BNEQ 2 
MOVL #1, DEFINE_KEY_ VALUE 
MOVL ee DEF INE-KIND 
BRB 30§ 
PUSHL #1 
PUSHAB DBG$CS_DIRECTORY 
PUSHL R 
CALLS #3, DBGSNMATCH 
CMPL ~=séRO, #1 
BNEQ $ 
TSTL a}g(sP) 
BEQL 
PUSHL #164184 
CALLS #1, LIBSSIGNAL 
MOVL 1, DIR_FLAG 
MOVL #1, DEFINE KEY_VALUE 
CLRL —sDEF INE_K IND 
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1 
1 
56 D EE 308: TSTL DEFINE. KEY_VALUE 3 1439 
1 F BEQL 3 
55 06 Ad D F MOVL 4(R9), ADVERB_NODE + 144 
SA 65 8 90 F r6 31$: CMP ZV #0, #8, (ADVERB ONODED , DEF INE_KIND + 144 
55 08 nS p 0 fD MOVL (ADVERB, NODE), ADVERB_NODE + 1444 
06 =A 36 p0 0 03 328: MOVL DEF INE_KEY_VALUE, 4(ADVERB_NODE) + 1445 
0 é 1 CMPB = (ADVERB_NOBE), #3 + 1452 
B if 030A BNEQ  36$ : 
08 AS 01 D0 0030 MOVL #1, 8(ADVERB_NODE) + 1454 
55 11 : 1 BRB 36$ : 128 
0c BE DS 00312 33$ TSTL a1 (SP) + 146 
4 if 031 BNEQ : 
03 04 AE ; 0031 BLBC ALL FLAG, 35$ : 
FE65 31 0031B 348: BRWw 15$ : 
FA 6 E8 OO31E 35$: LBS  DIR_FLAG, 34$ : 
DD 00321 PUSHL } + 1470 
000000006 00 1 FB 00323 CALLS , DBGSGET_TEM MEM : 
3¢ 0 DO 0032A MOVL nd TEMP_K : 
62 02060000 8F D0 0032D MOVL sof de 7i938. (TEMP _KEY_DESC) > 1471 
04 A2 D4 00 CLAL 4 (TEMP AK Vv $C) + 1474 
OC AC DD 00337 PUSHL MESSAG + 1477 
52 DD 0033A PUSHL TEMP AREY. SESC : 1476 
53 DD 00 C PUSHL R + 1475 
000000006 00 0 FB O35 CALLS #3, DBGSREAD _KEY_INFO : 
58 50 DO 0034 MOVL TUS F 
3¢ 5B ES 00348 LBC eTATUS. 40$ + 147 
04 DD 00348 PUSHL #4 : 148 
000000006 00 1 FB 00340 CALLS #1, DBGSGET TEMPMEM : 
10 AE 0 DO 00354 MOVL RO. NEW NOUN_NO F 
OC BE 10 AE 00 00358 MOVL NEW_NOUN_NODE, @12(SP) : 148 
57 10 AE DO 0035p MOVL  NEW"NOUNNODE. NOUN NODE : 148 
67 36 0 Oo 30) MOVL TEMP_KEY DE SC, (NOUR _NODE ) : 148 
04 A? 7C 00364 CLRO 4 (NOON_NODE : 149 
FD4B 31 00367 36$: BRW + 1463 
VC BE DS 0036A 378: TSTL al2(SP) > 1503 
1¢ iF 0036p BNEQ 41$ : 
18 04 AE EB 0036F BLBS §ALL_FLAG, 41$ : 
15 — £8 00 73 BLBS DIRTFLAG. 41$ F 
00028000 8F DD 00376 38$ PUSHL #1604 48 : 1506. 
000000006 00 01 FB 00 ic CALLS , DBGSNMAKE_ARG_VECT ; 
0c Bc 50 D0 00383 39$: MOVL RO: aMESSAGE_VECT™ F 
50 04 B0 00 87 40$: MOVL * RO : 1507. 
4 A RET : 
50 01 DO 99 8B 41$: MOVL , RO : 1510 
04 0038E RET : 1511 


; Routine Size: 911 bytes, Routine Base: DBGSCODE + O8AB 
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; : : } \; } GLOBAL ROUTINE DBGSNEXECUTE_SHOW (VERB_NODE, MESSAGE_VECT) = 
3 1 1515 1 !4e 
3 ! 4 ! 1 ! : FUNCTIONAL DESCRIPTION: 

; 1389 1518 1! This routine accepts a command execution tree as input and performs the 
; 1390 1319 7! semantic actions associated with the SHOW command. Version 2 debugger 
3 : 4! 1 Y : } routines and data structures are utilyzed during command execution. 
3:1 38 15 § 1 ! FORMAL PARAMETERS: 

3 1394 15 1! 

3 1 ie 12 : } VERB_NODE - The first node in the command execution tree 
3; 1397 1526 1! MESSAGE_VECT = The address of a longword to contain the address 
; 1398 1527 1! of a message argument vector 

; 1399 1528 1! 

; 1400 1529 1°! IMPLICIT INPUTS: 

3: 1401 1530 1! 

; 1e08 1531 1! NONE 

3: 140 1336 1! 

3 1404 15 1 ! IMPLICIT OUTPUTS: 

3 1405 1534 1! 

3; 1406 1835 1! Semantic actions Serceapendine to the input command are performed. That 
: Met 1336 ! is, various states of the debugger are displayed. 

3 1e% 1338 : ROUTINE VALUE: unsigned longword integer completion code 

3 1411 1540 1 ! COMPLETION CODES: 

3 8 | 1541 1! 

3 rat 1268 : STSSK_SEVERE (4) - The command could not be executed. 

3 1415 1544 1! STSSK_SUCCESS (1) - The parsed command was executed. 

3 1416 as 3s 

3 1417 1546 1! SIDE EFFECTS: 

3 1418 1547 1! ‘ 

3; 1419 1548 1! Output concerning the state of the debugger is displayed to the user. 
: 1420 1549 1! 

3 1363 1550 1 !-- 

7 14 ; 1551 1 

3: 142 1336 § BEGIN 

3 1424 155 

3: 1425 1554 P 

A 1268 1332 VERB_NODE: REF DBGSVERB_NODE; ! Pointer to command Verb Node 

3 1258 1889 

; oes 1558 : 

3 Hrd 1229 Transfer control to a subnetwork on the basis of the composite verb 

3 163% 1561 CASE .VERB_NODECDBG$B_VERB_COMPOSITE] FROM MIN_SHOW TO MAX_SHOW OF 

3 143 1366 SET 

3 14354 156 

3 1435 1564 Cshow_break]) : 

3 1436 1565 RETURN DBGSEVENT_SHOW_CANCEL_SEMANTICS (.VERB_NODE 

: 1437 1366 “MESSAGE _VECT 

3; 1438 156 ); 

3 1439 1568 

3 1440 1569 {show calls) : 


cr 
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> 14461 1570 BEGIN 

; rk 1571 LOCAL 

: 144 1 Lf EXC_TYPE ! Exception type (trap=1, fault=2) 
; ae 1323 NOUN_NODE : REF dbg$noun_node; 

3 1se8 132? noun_node = .verb_node Cdbg$l_verb_object_ptrd; 

: 1448 1335 ! exception type is based on whether the last exception 
3; 1449 1578 ! was a fault, break or step-end 

; 1450 1579 ‘ 

3 1451 1580 IF -dbg$runframe Cdbg$v_at_fault] OR 

; 1086 1581 -dbg$runframe [dbg$v_at_breakJ] OR 

; 145 1286 -dbg$runframe [dbg$v_at_step_end] 

: 1454 158 THEN exc_type = fault_exc 

3; 1455 1584 ELSE exc_type = trap_exc; 

; 1456 1585 

; 1457 1586 dbg$traceback (.dbg$runframe Edbgst_user_pcd. 

; 1458 1587 -dbg$runframe (dbg$l_user fp, 

3 1459 1588 3 -EXC_TYPE, .NOUN_NODECDBGSL_NOUN_VALUEJ); 
3 1460 1589 § END; 

3 1461 1590 

: re 1591 2 Cshow define] : 

3 146 1336 3 BEGIN 

3 1464 1595 3 pagan Serene) 

3 1465 1594 END; 

> 1466 1595 

3 1467 1596 Cshow developer] : 

3 1468 1597 N- 

3 1469 1598 ; dbg$print ( ; 
: 1470 1599 UPLIT BYTE (ZASCIC "Developer Longword (in hex): !XL"), 
3 1471 1600 3 .dbg$gl_developer); 

3 Hg 4 1601 3 Pegerewn ye 3 

3 147 1oOe 2 END; 

3 1476 16035 2 

3; 1475 1604 2 

3: 1476 1605 2 ! Execute the SHOW DISPLAY command. 

3 1477 1606 2 } 

3: 1478 1607 § CSHOW DISPLAY): 

3 1479 1608 DBG$SCR_EXECUTE_SHODISP_CMD(.VERB_NODE) ; 

: 1480 1609 2 

3 1481 1610 2 

: 1482 1611 2 ! Execute the SHOW KEY command. 

3 1483 1ol¢ 2 : 

> 1484 161 Cshow key 

3; 1485 1614 BEG! 

3 1486 1615 

3 1487 1ol8 LOCAL 

3; 1488 161 status; 

3: 1489 1618 

3; 1490 1619 status = dbg$nexecute_show_key(.verb_node, .message_vect); 
3: 1491 ies) IF NOT .status 

3 1438 1621 

3 149 16 § RETURN sts$k_severe; 

3 1494 16 ND; 

3 1495 1624 

3: 1496 1625 ' Execute the SHOW LANGUAGE command. 

3; 1497 1626 : 


oa 
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> 1498 1627 Cshow language) : 

; 1300 ig 5 ee ttLout ('L 'AC', dbg$l (.dbg$gb_l )) 
; ao_tt_ou anguage: !AC', anguage (. _language)); 
; 1501 16350 END; IM: z rey i : 
, 7 oe 1631 

; 150 16 ¢ Fehow log] : 

3 1504 16 B 

3; 1505 1634 seg nehen outpet (2); ! 2 stands for ‘'show log’ parameter 
; 1506 199? END; 

; 1507 1636 

; 1508 1637 Cshow_margins] : 

: 1509 loge BEGIN : 

; 1510 1639 eogonenen, porEas th 

3; 1511 1640 END; 

; 1216 1641 2 

3; 151 1066 Cshow_max_source_files] : 

> 1514 164 N 

3; 1515 1644 + (tamamaan ama aii tia 

; 1516 1645 END; 

3; 1517 1646 

3 1518 1647 Cshow_ mode] : 

3; 1519 1648 3 

3; 1520 1649 3 sogreton, pace ); 

3; 1521 1650 2 END; 

; 1356 1651 

3; 182 1636 Cshow module] : 

> 1526 165 

: 1825 1654 3 cognehen pearls Q); 

3 1526 1655 2 END; 

3; 1527 1656 

; 1528 1657 Cshow_ output) : 

3; 1529 1658 BEGIN ; ne 

; 1530 1659 3 Sogerahou_ output (1); ! 1 stands for ‘full rep 

3 1531 1660 2 END; 

3; 1532 1661 2 

3; 1533 1662 Cshow_radix] : 

3: 1534 1663 BEGIN : 

; 1535 1664 ! Parameter EQL 0 => show the SET RADIX radix 

: 1536 1665 3 gogsohou_redtx(0); 

3 15357 1666 2 END; 

; 1538 1667 

3; 1539 1668 Cshow_radix_override): 

3; 1540 1669 BEGIN ; 

3 1541 1670 ; ! Parameter EQL. 1 => show the SET RADIX/OVERRIDE radix 

; 1386 1671 segeenen, POetac 334 

3 154 1676 END; 

3 1544 167 

3: 1545 1674 Cshow_scope] : 

3: 1546 1675 EGIN 

3 1547 1676 il eater ); 

3; 1548 1677 END; 

3 1549 1678 

; 1550 1679 Cshow_search] : 

3; 1551 1680 BEG! 

: 1226 198) gogtehan_pearee (); 

3; 155 16 ¢ END; 

3; 15546 168 
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Execute the SHOW SELECT command. 
{SHOW SELECT): 
DBGSSCR_EXECUTE_SHOSEL_CMD(.VERB_NODE); 
Execute the SHOW SOURCE command. 
{SHOW_SOURCE) : 
DBGS$SRC_SHOW_SOURCE(); 
Cshow_step] : 
BEGIN. 
a aca (); 
END; 


Cshow prnet, show_symbol_defined]: 
BEGIN 


LOCAL 
eddr flag. 


f ags 

Lobal flag, 

ype_flag, 
noun_node: REF cbasnoun node, 
name_list: REF VECTORC,CONG), 
status; 


Recover the flags. 


noun_node = .verb_node Cdbg$_verb_object_ptrd; 


flags = .noun_node(dbg$l_adjective_ptrJ; 
addr_fla 


a ' =. _ 
lobal_flag = (.flags mod 4)/2; 
ype_flag = .flags mod 2; 


: Show the non-defined symbols. 


AX-1 
DEBU 


6.$RC3 


if ;verbanodeLdbg$b_verb_compos ite EQL show_symbol_defined 


BEGIN 
status = FAL 
addr_flag . 


Expe-ftag 


E 
status = dbg$sta_showsymbol(.verb_node); 


! Show the defined symbols as long as no IN clause was 


specified. 


name_list = .noun_node(dbg$l_noun_value); 
WHILE .nane. list REQ 0 do 
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9 
IESEHBH: Sl Wat 


us = none t igtl2s GTR 0; 


a ; 
noun_nodeldbg$l_noun_value2] EQL 0 


stat 
IF . 
THEN 


BEGIN 
IF NOT dbg$dump_define( .name_list(1], 
-addr_flag, 


-Message_vect) 
HEN 
RETURN sts$k_severe; 


i Status 
SIGNAL (dbg$_symnotfnd, 1, .name_list(1]); 


name_list = .name_Llist(0J; 
END; 
END; 


Execute the SHOW TASK command. 
CsHOw TASK): 
See eRe, PU, SORE NERD MODE? 3 


Execute the SHOW TERMINAL command. 
{SHOW_TERMINAL): 


DBGSPRINT(UPLIT BYTE(ZASCIC ‘terminal width: !SL"), 
.DBG$SRC_TERM_WIDTH); 
DBGSNEWL INE); 


Execute the SHOW TRACE command. 
{SHOW TRACE): 

RETURN DBGSEVENT_SHOW_CANCEL_SEMANTICS (.VERB_NODE 

~MESSAGE_VECT); 

Cshow type] : 

BEGY 

gogtehon,type (default); 

END; 


Cshow sypeoverr ide3 : 
BEG ‘ 
dbg$show_type (override); 
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-00 DEBUG. SRC JDBGNSHOW.832; 1 
: 1669 179 ND; 
5 1670 1398 : 
: 1671 1800 (SHOW WATCH) : 
; 1678 1801 RETURN DBGSEVENT_SHOW_CANCEL_SEMANTICS(. VERB. NODE, 
; 1673 180¢ -MESSAGE_VECT); 
192? 1806 } Execute the SHOW WINDOW command. 
: 1o38 1809 SHON YOON cure SHOWIND_CMD(.VERB_NODE) 
+ 1679 1808 5 ° et te ' 
: 1680 1809 
$ He? 1319 Any other SHOW command code is an internal DEBUG error. 
: 1883 1818 CINRANGE, OUTRANGE) : 
> 1684 181 $DBG_ERROR( 'DBGNSHOW\NEXECUTE_ SHOW"); 
> 1685 1814 
: 168 1815 TES; 
: 168 1816 
: 1688 1817 RETURN STS$K_SUCCESS; 
> 1689 1818 2 
: 1690 1819 1 END; 
-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
67 6€ 6F 4C 20 72 65 70 6F 6C 65 76 65 44 20 00154 P.ACD: .ASCII \ Devel L d (im hex): !XL\ : 
20 3A 29 78 65 68 20 6 69 28 20 64 72 6F 97 00163 Se ee er 
4C 58 21 00172 : 
OD 00175 P.ACE: 13 : 
43 41 21 20 3A 65 67 61 75 67 6E 61 6¢ 00176 ASCII \Language : 'AC\ : 
68 74 64 69 77 20 6C 61 6E 69 6D fe 65 £4 13 00183 P.ACF: .ASCI] <19>\terminal width: !SL\ : 
43 45 58 45 GE SC S57 4F 48 53 4E 47 4g 44 16 ets; P.ACG: .ASCII <22>\DBGNSHOW\<92>\NEXECUTE_SHOW\ : 
57 4F 4B SF 45 54 55 O01A6 : 
.PSECT DBGSCODE.NOWRT, SHR, PIC,O 
07FC 00000 ENTRY DBGSNEXE CUTE. SHOW, Save R2,R3,R4,R5,R6,R7,= ; 1513 
SA 900000006 00 9E 0000 MOVAB LIBSSIGNAL, R10 : 
59 00000000' ai 9—E 0000 MOVAB P.ACG, R ; 
58 000000006 00 4 90019 MOVAB DBGSRUNFRAME+72, RB : 
52 04 AC 00 00017 MOVL §VERB_NODE, > 1561 
1D 01 01 Ad 8F 0001B CASEB 1(R23, #1. #29 : 
00A7 003¢ 0048 gre 0020 1$: <WORD 47$-1$,- : 
00E7 OODE 00D 0c 0028 3$-1$,- ; 
0104 O1E 012 OOF D 0030 2$-1$.- ; 
00C7 O11A gig 0108 0038 11$-1$,- : 
0077 012D 0106 OOCE 0040 13$-1$.- ; 
010F 008C¢ 0080 0120 0048 18-18. : 
OOF O 0097 1F0 018B 90050 17$-1$.- ; 
1B OOF 4 0058 \8$-18.- : 
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31$-1$,- : 
47$-1$.- : 
44$-1$.- : 
45$-1$.- : 
47$-1$.- : 
298-18, - : 
4$-1$.- ; 
15$-1$.- : 
6-18. - : 
$-1$.- : 
$-1$,- : 
338-18,- : 
$-1$,- : 
9$-1$.- : 
28$-1$,- : 
4e8-18,~ j 
4 $-1$,- ° 
10$-1$.- : 
21$-1$.- : 
22$-1$.- : 
41$-1$ : 
59 DD 0005C 2$ PUSHL R9 + 1813 
01 0D 0005€ PUSHL #1 : 
00028362 8F DD 00060 PUSHL #164706 : 
A 03 FB 00066 CALLS #3, LIBSSIGNAL ; 
76 11 00069 BRB 12§ ; 
51 08 A2 dO 00068 3$ MOVL §8(R2), NOUN_N + 157 
01 AB 05 £0 0006F BBS #5, DBGSRUNFRAME+73, 4$ : 158 
05 68 £8 00074 BLBS  DBGSRUNFRAME+ : 158 
01 AB 04 £1 00077 BBC #4, DBGSRUNFRAME+73, 5$ : 158 
50 02 DO 0007C 4$: MOVL #2, EXC_TYPE : 158 
03 11 0007F BRB ; 
50 01 DO 00081 5$: MOVL EXC_TYPE : 158 
61 DD 00084 6$: PUSHL twous NODE) : 158 
50 0D 0008 PUSHL  EXC_TYPE ; 
FO A DD 00088 PUSHL DBGSRUNFRAME+56 : 158 
F8 AB DD 00088 PUSHL DBGSRUNFRAME+64 : 1586. 
000000006 00 04 FB O008E CALLS #4, DBGSTRACEBACK : 
77 11 0009 BRB 20$ : 1561. 
000000006 00 00 FB 90097 7$ CALLS #0, DBGSSHOW_DEF INE : 1593. 
7B (11 O09 BRB 4$ : 1561 
000000006 00 oD 900A 8$: PUSHL DBG$GL_DEVELOPER : 1600 
BD A9 9F 0006 PUSHAB P.ACD : 1599 
0138 31 OO0A9 BRW : 
52 DD OOOAC 9$ PUSHL R + 1608 
000000006 00 4) FB BO0A CALLS #1, DBGS$SCR_EXECUTE_SHODISP_CMD : 
6 11 0008 BRB 7$ ; 
08 AC DD 000B7 10$: PUSHL MESSAGE_VECT + 1619 
52 DD OOOBA PUSHL R : 
0000v CF 0 FB 00BC CALLS #2, DBGSNEXECUTE_SHOW_KEY F | 
7D 5 00C1 BLBS TATUS, 30$ : 1620 
OOEF 31 00064 BRW > 1622 
43 000000006 00 9a O0C7 11$:  MOVZBL DaGSGB LANGUAGE -(SP) > 1629 
000000006 0 1 FB 000C CALLS DBGSLANGUAGE ; 
0 pp 0D PUSHL ; 
DE Ad 9F 000D PUSHAB : 
000000006 00 02 FB OOODA CALLS FAAC SBGSFAO_OUT : 
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/v06=000 14-Sep- DEBUG. SRC ]DBGNSHOW.632; 1 vi 
7E 56 7D 1Ag MOVa = ADDR FLAG sh : 17% : 
04 A2 DD OO1A PUSHL  4(NAME L181 + 174 : 

000000006 00 06 F TAG CALLS Ab 88 DUMP DEF INE : : 
1 E O18 BLBS : ; 

| 50 04 BO 0186 38$: MOVL + 1752 ; 
OE 55 £8 001BA 39$: LBS niahes. 40$ : 1756 ; 

04 A2 DD 001BD PUSHL 4(NAME.LIST) + 1758 ; 

01 DD 001C0 PUSHL #1 : : 

00028688 8F DD ice PUSHL #165563 : : 

6A 03 FB 1¢ CALLS #3, LIBSSIGNAL : : 

52 62 0 O1¢B 40$ MOVL § (NAME_LIST), NAME_LIST : 1761 ; 

BE 11 Ice BRB 36$ + 1739 : 

52 DD 00100 41$ PUSHL R2 + 1770. : 

000000006 00 or FB 00102 CALLS #1, DBGSNEXECUTE_SHOW_ TASK : : 
— 11 001D BRB 49$ > 1561. ; 

000000006 00 oD 00108 42$:  PUSHL DBGSSRC_ TERM_WIDTH + 1779 : 

EC Ad 9F OO1E1 PUSHAB F : 1778 : 

000000006 00 02 FB OO1E4 43$: CALLS a5. DBGSPRIN : ; 
000000006 00 00 FB OO1EB CALLS DBOSNEUL INE + 1780 : 
¢3 11 001F2 BRB 49$ : 1561 ; 

E D4 OO1F4 44$: CLRL  -(SP) : 1792. : 

02 11 001F6 BRB 46$ : : 

01 DD OO1F8 45$:  PUSHL #1 : 1797. : 

01 FB OO1FA 46$: CALLS #1, DBGSSHOW_TYPE : : 

16 11 00201 BRB : 1561 ; 

AC OD 00205 47$:  PUSHL MESSAGE_VECT + 1802 : 

52 DD 00206 PUSHL : 1801 : 

02 FB 00208 CALLS #2, DBGSEVENT_SHOW_CANCEL_SEMANTICS : : 

04 0020 RET : | ; 

52 DD 00210 48$ PUSHL R2 : 1807. ; 

01 FB 00212 CALLS #1, DBGSSCR_EXECUTE_SHOWIND_CMD : : 

01 D0 00219 49$:  MOVL #1. RO : 1817 : 

04 0021C RET : 1819 ; 

Routine Base: DBGSCODE + OC3A 3 


00000000G 00 
08 
00000000G 00 
00000000G 00 
50 
Routine Size: 541 bytes, 
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; 24 + 9 } GLOBAL ROUTINE dbg$nexecute_show_key (verb_node, message_vect) = 
3 O80 i ¢ : } Functional Description 
3 o38 : : : This routine performs the action associated with the SHOW KEY command. 
3 O98 i $ : Routine Inputs 
; $80 1828 1! verb_node - The head of a command execution tree. This is built 
3; 1701 1829 1! by the routine DBGSNPARSE_SHOW_KEY, and its structure 
; 10 1830 1! is described in the header of fhat routine. 
3 f : 1 : } message_vect - An error message vector. 
; 1705 18 § 1 ! Routine Outputs 
; 1706 1834 1! 
3 A 1332 : Information about key definitions are output to the screen. 
3 1837 1! The routine value is one of: 
; 1838 1! sts$k_success - Success code. 
3 1373 ; sts$k_severe - Error. An error message vector is contructed. 
: 1841 BEGIN 
: ak 
; 184 MAP 
3 ieee : verb_node : REF dbg$verb_node; 
; 1846 LITERAL 
3 1847 § v.key_noecho = 0, 
; 1848 v_key_terminate = 1, 
3 1849 2 v_key_lockstate = 2, 
: 1850 2 vikey_setstate = 4; 
; 1851 2 
3 1926 § LOCAL 
3 185 noun_node : REF dbg$noun_node, ! Points to a noun node 
3 1854 2 adverb_node : REF dbg$adverb_node, ! Points to an adverb node 
3 1855 2 ound 
; 1856 é dir_flag. 
; 1857 all_flag, 
: 1858 2 brief_flag, 
: 1859 show_status, 
: 1860 attributes BITVECTOR (32), 
3 1861 context INITIAL(O), 
3 1906 temp_if_state_address REF dbg$state_name_node, 
3 136 if_sftaté_desc_address : REF dbg$state_name_node, 
; 13ee deSc_ptr : REF dbg$stg_desc, 
3 1866 key_name_desc dbg$stg_desc, 
3 1867 if_state_name_desc dbg$stg_desc, 
; 1868 equiv_name_desc dbg$stg_desc, 
: 1962 state_name_desc dbg$stg_desc; 
; 1870 
; 1871 : : 
3 1876 Macro to initialize descriptors 
3 187% MACRO 
3 M 1875 initialize desc (temp_desc) = 
3 M 1876 BEGIN 
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s3 
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$ 
$ 
0 
temp_desc Ldsc$b_dtype] = 


™ temp_desc ([dsc$w_length] = 0; 
” sc$k_dtype_t; 
M temp_desc Ldsc$b_class] = dsc$k_class_d; 
M fonp, dese dsc$a_pointerJ= 0; 


We will set up the noun and verb pointers and proceed to walk 
down the adverb List with the pnoul oes that the qualifier information 
is in order. After checking the qualifiers, a call is made to the 
routine SMGSGET_KEY_DEF to get the key information; if the /ALL 
qualifier exits then calls are made to SMGS$LIST_KEY_DEFS to get all 
the key definitions in the table. A call is alSo made for each 
state specified by the State qualifier. 

Then exit successfully, unless some error was found on the way. 


SANS 


PPD PAPAS SIS 
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noun_node = .verb_node pebgst verb_object ptr 3 
adverb_node = .verb_node ([dbg$l_verb_adverb_ptrJ; 


! DIRECTORY qualifier 


dir_flag = .adverb_node (dbg$l_adverb_value]; 
advéerb_node = .advéerb_node Cdbg$l_adverb_Link); 


! ALL qualifier 
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all_flag = .adverb_node (dbg$l_adverb_valuel; 
IF T.dir_flag) AND™(.all_flag) 


SIGNAL (dbg$_conflict); 
adverb_node = .adverb_node (dbg$l_adverb_Link]; 


! BRIEF qualifier 


brief {leg = ,adverb_node [dbg$l_adverb_value); 
IF (.dir_flag) AND (Tbrief_flag) 


SIGNAL (dbg$_conflict); : 
adverb_node = .adverb_node (dbg$l_adverb_Link); 


! STATE qualifier (Note: if /STATE=xxxxx was specified the Link field will be one) 
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if state_desc_address = .adverb_node (dbg$l_adverb value]; 
IF~(.dir=flag) AND (.adverb_node Cdbg$l_adverb_link] EQ. 1) 


SIGNAL (dbg$_conflict); 
adverb_node = .adverb_node (Cdbg$l_adverb_Llink]; 


If the /DIRECTORY qualifier exists 


> > >, 
o oO 
BLERE 


oo 
=83 


If .dir_flag 

THEN 
BEGIN 
if_state_desc_address 
temp_if_state_address 
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8 END; 
of 
oS WHILE .dir_flag DO ! i.e. while true do 
IN 


initialize_desc (if_state_name_desc); 
Get a state name of some key. 
Show status = smg$list_key_defs (dbg$gl_key_table_id, 
ontext, 
if_state_name_desc); 
IF NOT .show_status 
THEN 
IF .show status EQL smg$_nomorekeys 
THEN 
BEGIN 
! Output List of states, if no more new key definitions 
can be found. 
WHILE if state_desc_address NEQ 0 DO 


dbg$print (UPLIT BYTE (ZASCIC ‘!AS"), 
if state_desc_address (Cdbg$l_state_name_ptr]); 
dbg$newline(); 


2 Cd 09 CD CD CD CD OD OD Cd 09 CD CD CD Cd Od C9. OCD 0D. CD. CD CD OD CD: 
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: Ad state_desc_address = .if_state_desc_address [dbg$l_state_name_link]; 

8 RETURN sts$k_success; 

8 END 

83 ELSE 

S39 SIGNAL (dbg$_shokeyerr); 

83 6 found = FALSE; 

83 MAILE ,fomm.tt_state_eddross NEQ 0 DO 
' Look to see if a key has ei recty been found with this state 
! If so, advance the pointer to the next state-node, else, a 
! key with this state has been found and a new node need not 
' be added to the List of state names. 


™“ PUPP SSSI EB BS BS BB EE ANNI 


MEUM OO OODNOA UNE WIN $9 ODNO UNE WN 9 ODNAUES WN (OO OODNO NEW OOONOUE 


desc_ptr = .temp_if_state_address Cdbgst state_name_ptrJ; 
fen QL str$compare_eql(-desc_ptr. if_sfate_name_desc) 


BEGIN 
found = TRUE; 
EXITLOOP; 


temp_if_state_address = .temp_if_state_address [dbg$l_state_name_Link); 
IF NOT . found 
THEN 


109 G9 GD 09 09 C9 SI NINN SNS NN NOS AA AAO 


BEES EWA SN BBE EEE FE FAWN BE & BBB PAWN IIIIonory 


EGIN 
! If a key has not been found that has this state yet, 
add the state to a list for output. 
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temp_if_state_address = dbg$get_tempmem(dbg$k_state_name_size); 
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dbg$newline(); 


dbg$newline(); 

context = 0; 

WHILE TRUE 00 
BEGIN 


all ke 
into t 
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temp_if_state_address (Cdbg$l_state_name_link] = .if_state_desc_address; 
if s€até_desc_address = .temp_if_sfate_address; 


desc_ptr = Gogiort tengnen te); 
desc_ptr (dsc h 
desc_ptr Ldsc$b_dtype 
desc_ptr [dsc$b_class = dsc$k_class_d 
desc_ptr (dsc$a_pointer] = 


if state_name_desc (Cdsc$w_lengthi; 


w lengt 
: dsc$k_dtype_t; 


.if_state_name_desc Cdsc$a_pointer); 


sone. 1f_state_sdéress Cdbg$l_state_name_ptr] = .desc_ptr; 


If the /DIRECTORY qualifier does not exist 


WHILE gi fantetecesc edéress NEQ 0 DO 
Output the keys for each seperate state that is specified 


dbgSprint(UPLIT BYTE (ZASCIC "!AS keypad definitions:') 
if_state_desc_address [dbg$l_state_name_ptrJ); 


: Look at each key that has been defined and determine whether 
' jt has the right state to be output in this List. 


Lize_desc(key_name_desc); 
Lize_desc(if_state_name_desc); 
Lize_desc(state_name_desc); 
Lize_desc(equiv_name_desc); 


show status = smg$list_key_defs (dbg$gl_key_table_id, 
context, 


key_name_desc, 

if state_name_desc, 
attributes, 
equiv_name_desc 
state name_desc); 


ro -Show_ status 
IF .show status EQL smg$_nomorekeys 
EXITLOOP 
SIGNAL (dbg$_shokeyerr); 


$s are to be output. or if just a key with this name, 
is condition. 


! If the state-names match, then this key is to be output. 


Page 57 
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f 
t) 
fall _tleg) OR (0 EQL str$compare_eql(key_name_desc, .mnoun_node [dbg$l_noun_value])) 
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9" 
: 1920 98 4 ' 
; \% 1 Ben : a EQL str$compare_eql(if_state_name_desc, .if_state_desc_address (Cdbg$l_state_name_pt 
3 19 : 051 BEGIN 
3 2 ¢ O26 Print out key information 
; 19 § 054 Poster ine cur. ty BYTE (ZASCIC ° !AS = “"!AS'''), key_name_desc, equiv_name_desc); 
; 19 055 IF NOT .brief_flag 
: 1928 B28 HE 
3 1929 057 6 N 
; 13 . $28 ? IF .attributes Cv_key_noecho] 
3 19 4 060 6 dbg$print(UPLIT BYTE (ZASCIC * (noecho")) 
; Rar 061 6 SE 
3 19 O06 6 dbg$print(UPLIT BYTE (ZASCIC *° (echo')); 
: 1935 063 6 IF .attributes Cv_key_terminate] 
3: 1936 064 6 THEN 
3 Ret Be? ° dbg$print(UPLIT BYTE (ZASCIC ',terminate’)) 
3 1939 067 6 Copter snc tun. tT BYTE (ZASCIC ‘,noterminate')); 
: 1940 2068 6 If .attributes Cv_key_lockstate] 
3 1941 2069 6 THEN 
; bg 2070 6 dbg$print(UPLIT BYTE (ZASCIC ‘,lock')) 
7 194 2071 6 
3 19446 th 6 art (to ha BYTE (ZASCIC ",nolock")); 
; 1945 sor 6 If .attributes Cv_key_setstateJ 
z 1946 074 6 EN 
3; 1947 2075 6 dbg$print(UPLIT BYTE (ZASCIC ‘,state=!AS)'), state_name_desc) 
: 1948 2076 6 ELSE ; 
3: 1949 2077 6 dbg$print(UPLIT BYTE (ZASCIC ')')); 
3; 1950 2078 5 END; 
; 1951 2079 5 dbgsneul ine(); 
; 1952 2080 4 END; 
; 1953 2081 END; , 
3 1338 $oes Move the state-name-pointer ahead one 
3; 1956 2084 if_state_desc_address = .if_state_desc_address [dbg$l_state_name_Link]; 
: 1957 2085 ; 
: 1958 2086 
3 1959 2087 RETURN sts$k_success; 
: 1960 2088 1 END; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


33 41 $ 93 QO1AE P.ACH: .ASCII <3>\!AS\ : é é 
66 65 64 20 64 61 70 79 65 6B 20 53 41 - 01B2 P.ACI: .ASCII <23>\!AS keypad definitions:\ : 
3A 73 6€ 6F 69 74 69 $f 69 O01C Tee 3 

| ae oe oe ey 53 41 21 0D Bice P.ACJ: .ASCII <13>\ 'AS = ““HAS*'\ : 

6F 68 63 65 6F of : 0 89 108 P.ACK: .ASCII <9>\ (noecho\ 3 

6F 68 63 § 0 O7 OQO1E2 P.ACL: .ASCII <7>\ Cecho\ 3 

65 74 61 6€ 34 6D 72 65 74 2C OA TEA P.ACM: ASCII <10>\,terminate\ ; 

65 74 61 6€ 69 6D 72 65 74 6F 6E 2C 1F5 P.ACN: .ASCII <12>\,noterminate\ 3 

6B 63 6F 6C C 6 P.ACO: .ASCII <5>\,lock\ ‘ 

$8 63 e 6C F $f C P.ACP: .ASCII <7>\,nolock\ : 

29 53 41 21 D 65 74 61 4 C B 00210 P.ACQ: .ASCII ; 


<11>\,state=!AS)\ 


000000006 


000000006 


000000006 


20 


000000006 


000000006 


o-VNM10 ORUIMO ORIN ou 
"ENO VOOWO VOOMAINFrO Mmm 


ours 
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00 


00000000" 


00028158 
08 
04 
00028158 


08 
04 


08 
00028158 
08 


020E0000 
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20 


of 
000000006 


29 «(01 


1 
1 
0021C P 


OFFC 00000 


rPwmn 
nm 


00 


WODMNWMNPSOWO PMNS POOPY POOVUWPY PS PYyYS 


PFOA NANI 2 FO NNN OO IPI | M ONIN OOOM Co 


“NPY 
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o 
— 
OOWW! POM UNVIMIOOY 


OND Lf PWS *OOOLOomMm 
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rom 


TBM 


SOSOOSOSOOSOSOSOOOSOOSOSOSOOSOOOOSOOOSOOSOOOOCOOOO OOOO OOOOOOOOOOO 
OOOOOOCOCOOOCOOSCOSOOSOOSOOSOSOOSOSOOSOSOSOSOSOOSOOOOOOOOOOOOOOoOOoOO 
SOOQOOGOOOOOCCOOCSOOOSOOOOOOCOOSCSCO OOOO SOOCOOOOOOOCOOCOOCOOOOSoOoOOoOOo 


BW99 WYN "DODD MAL SO "WO OODTON— DOOWS OOOC0OWS DOOCOCOCOCOS 
Owwwwowr>r>>y 
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4-Se 
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2$: 


6$: 


7$: 


ASCII 


PH TU 


<1>\)\ 


AX=-11 BL 
DEBUG.SR 


DBGSCODE ,NOWRT, 


CSC UVT0CCO- 2D 
m 
=< 


S Doe Sas aera 


oY ~ese3224=> Dd 


DP} 
oo “xm OO 


1 


rm mime 
= 


ff rms Oo 
a 2 = 


Rath 


RB_ “NODE. 
LAG, 1$ 
AG, 1$ 


G, 2$ 


SSIGNA 
RB_ NODE), 


B 

R 

RB- =NOBED 
$ 

FLA 

B 


BSSIGNA 
ne SNODED, 


936, IF_STATE_NAME_DESC 
F STATE NAME -DESC#% 
F~STATE NAME DESC 


RCS 


SHR, PIC,0 
BOSE NE CUTE St SHOW. KEY, Save R2,R3,R4,R5,R6,-; 


#56, §P 
NO 
J, NO 


AG 
; ADVERB_NODE 


ALL_FLAG 


$SIGNAL 
B_NODE), ADVERB_NODE 
BRIEF _FLAG 


ADVERB_NO 


#1 


ADVERB_NODE 
F “STATE _ADDRESS 
, S$ 


TEXT 
DBG on KEY TABLE_ID 


SAGs IST KEY_DEFS 
SHOW Ts TATYS ~ 


AG. 


HOW- STATUS: #SMG$_NOMOREKEYS 


F _STATE_DESC_ADDRESS 


30$ 
ait: STATE _DESC_ADDRESS) 
: . DBGSPRINT 


; DBGSNEWL INE 


s-32 V4.0-7 
DBGNSHOW. B32;1 


42 


DE 
RB-NODE). IF_STATE_DESC_ADDRESS 
RB_NODE), 
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. (6) 


Pe Se Se Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Be Ge Se Se Ge Ge Se Ge Se Se Ge Se Se Se Ge Se Se Se Se Se Be Se Be Se Be Se Ge Ge Be Se Se Be Se Be 
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10 
DBGNSHOW 1b-se -1984 02:04:20 AX-11 Bliss-32 V4.0-742 Page 60 
voen008 1o28eb-13be 93:93:54 Eokeug. BkcSSpenshou Bases 9° 68) 
54 04 AS DO OO0CA MOVL  § 4(IF_STATE_DESC_ADDRESS), - ; 1959 ; 
IF _STATE_DESC_ADDRESS : ; 
1 11 0cE BRB bt + 1954 ; 
00028120 8F DD 000D0 8s: PUSHL #164128 > 1964 ; 
000000006 00 1 FB 000D6 CALLS #1, LIBSSIGNAL ; : 
5 D4 000DD 9$: CLRL FOUND : 1966 ; 
33 b3 OOD 10$ ist TEMP_I? STATE ADDRESS > 196 : 
52 88 D0 O00E3 MOVL — (TEMP_IF_STATE_ADDRESS), DESC_PTR > 1974 ; 
20 AE OF DEG PUSHAB IF_STATE-NAME_DBESC : 1975. ; 
52 DD OO0E PUSHL DESC_PTR ; 3 
000000006 00 g FB OOEB CALLS #2, STRSCOMPARE_EQL : ; 
D5 OOOF TSTL OR : ; 
05 12 000F4 BNEQ 11$ : ; 
55 01 D0 000F6 MOVL #1, FOUND + 1978 ; 
06 11 000F9 BRB 12$ > 1977. ; 
53 04 A3 DO OO0FB 11$:  MOVL #4(TEMP_IF_STATE_ADDRESS), - > 1982) ; 
TEMP_IF_STATE_ABDRESS ; 3 
DE 11 OOOFF BRB 10$ > 1967 ; 
31 55 €8 00101 12$:  BLBS FOUND, 13$ > 1984 ; 
02 DD 00104 PUSHL #2 : 1990. ; 
000000006 00 01 FB 00106 CALLS #1, DBGSGET_TEMPMEM : | : 
53 50 DO 0010D MOVL RO, TEMP_IF-STATE_ADDRESS ; ; 
04 «AB 54 D0 00110 MOVL IF _STATE~DESC_ADDRESS, > 1991. ; 
4(TEMP_IF_STATE_ADDRESS) : ; 
54 53 D0 00114 MOVL §_TEMP_IF_STATE_ADDRESS, - > 1992 ; 
IF STATE_DESC_ADDRESS : ; 
02 OD 00117 PUSHL #2 3 1994. 3 
000000006 00 01 FB 00119 CALLS #1, DBGSGET_TEMPMEM : ; 
52 50 D0 00120 MOVL RO, DESC_PT : | ; 
62 20 AE BO 00123 MOVW §IF_STATE~NAME_DESC, (DESC_PTR) > 1995. : 
02 Ae O20E 8F B80 00127 MOVW #526, 2(BESC_PTR) : 1996 | 3 
04 A2 24 AE 00 0012D MOVL IF_STATE_NAME_DESC+4, 4(DESC_PTR) > 1998 ; 
s} 50 b6 001 : MOVL DESC_PTR> (TEMP_IF_STATE_ADDRESS) : 2000 | ; 
FF44 31 00135 138 BRW 4$ : 1936 | ; 
54 05 00138 14$ TSTL ‘IF _STATE_DESC_ADDRESS : 2007 : 
03 12 0013A BNEQ 158 ; ; 
0123 31 0013C BRW 30$ : : 
000000006 00 00 FB O013F 158 CALLS #0, DBGSNEWLINE : 2011. ; 
64 DD 00146 PUSHL (IF_STATE_DESC_ADDRESS) > 2013) ; 
04 AB 9F 00148 PUSHAB PATI > 2012 | : 
000000006 00 02 FB 00148 CALLS 3, DBGSPRINT : : 
000000006 00 00 FB 0132 CALLS #0, DBGSNEWLINE > 2014 ; 
04 AE D4 0015 CLRL CONTEX! : 2015 | ; 
2¢ AE 020E0000 «BF 40 0015C 168:  MOVL  #34471936, KEY_NAME_DESC : 2022 ; 
30 AE D4 00164 CLRL KEY NAME _DESC+ : ; 
20 AE 020E0000 8F 00 00167 MOVL 434571936, IF_STATE_NAME_DESC ; 2023 3 
AE D4 O16f CLRL OIF STATE NAME ~DESC+ ; : 
08 AE 02060000 8F DO 00172 MOVL  #32471938, STATE_NAME_DESC > 2024 ; 
C AE D4 OO17A CLRL STATE NAME _DESC+% ; : 
14 AE 0200009 8F DO 99170 MOVL #3447936, EQUIV_NAME_DESC > 2025 : 
18 AE D4 00185 CLRL  —- EQUIV_NAME_DESC +2 ; ; 
08 AE 9F 001 PUSHAB STATE~NAME DESC : 2027 ; 
18 AE 9F 0018B PUSHAB EQUIV"NAME—DESC ; ; 
08 AE 9F OO18E PUSHAB ATTRIBUTES ; : 
¢¢ AE 9F 00191 PUSHAB IF _STATE_NAME_DESC ; ; 
C AE 9F 00194 PUSHAB KEY_NAME—DESC ; : 


ee Tas ee re Tn 


3; Routine Size: 


05 


05 


OF 


614 bytes, 


000000006 


000000006 


000000006 


000000006 


000000006 


000000006 


000000006 


000000006 


000000006 


000000006 


Routine Base: 


D 
16 
14 
18 A 9F 00197 
000000006 6 oF 19A 
90 F 140 
6 0 OD 1A 
19 6 6€E 1AA 
BF D1 1AD 
0 1¢ 1B4 
00A 3 9186 
00028120 F DD 001B 
00 1 Fe 01BF 
10 5 EB Goice 
eae or O0ICe 
a6 fe Goice 
83 12 00107 
64 DD 00109 
24 AE 9F sid 
00 02 FB 3105 
50 D5 OOIE 
6F 12 001E7 
14 AE 9F OOI1E9 
30 AE 9F OOIEC 
1¢ AB OF OOIEF 
00 03 FB OO1F2 
55 58 €8 001F9 
05 6E €E9 OOTFC 
2A AB OF OOIFF 
03 11 00202 
34 AB 9F 00204 
00 01 FB 00207 
6E 01 +€1 0020 
3c AB 9F 0021 
03 «(11 b854 
47 AB 9F 00217 
00 01 FB OO21A 
6E 02 €1 00221 
54 AB 9F 00225 
03 «(11 OOSSe 
SA AB 9F O0022A 
00 01 FB 00220 
6E 04 4 0234 
08 AE F 00238 
62 A 9F 00238 
00 0 FB 00 3 
OA 11 0024 
6E AB 9F 00247 
00 01 FB QO24A 
00 89 FB 00251 
FFO1 31 88 58 
54 04 A4 00 00258 
FED6 31 poet 
50 01 00 00 oe 
04 0026 


DBGSCODE + 0E57 


=360 71382 98:94 


178: 
18$: 


19$: 


PUSHAB 
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224 SRCJD 


DEBUG. BGNSHOW.B32; 1 


CONTEXT 
DBGSGL_KEY TABLE. ID 
#7, SMOSLIST_KEY-DEFS 
HOW tFATO 
SHOW_STATUS, 18$ 
SHOW-STATUS, #SMG$_NOMOREKEYS 


STATE_DESC_ADDRESS) 
STATE_NAM S 
STRECOMPARE _EQL 


NAME DESC 
AME DESC 
BGSPRINT 


BG 
FLAG, 27$ 
BUTES, 20$ 


7$ ~ 
9$ 
16 
1, 
LL 
NO 
gy. 
0 
6$ 
IF 
* 
2. 
0 
8$ 
Qu! 
EY 


oO omm 
223" Roo Z< 


C 


——e ate HD 


A 
i 
T 
A 
$ 
A 


GSPRINT 
TTRIBUTES, 22$ 


late 


CN 
DBGSP 


A 
$ 
"ss RINT 
2 ATTRIBUTES, 24$ 
co 


 piipns pie: = pape piesa ae ne gas 


moe 
> 


P.ACP 
#1, DBGSPRINT 

#4. ATTRIBUTES, 26$ 

STATE_NAME_DESC 


ACQ™ 
DBGSPRINT 


P 
HK 

DBGSPRINT 
50° DBGSNEWL INE 
16§ 


4(IF STATE DESC_ADDRESS), 
Jf STATE. DESC_ABDRESS 
#i, RO 
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= POPPI POPIPUPNONONY — 


; 136¢ 089 
; 196 4 
: 19646 91 
; Mb 62 3 
: 1969 094 
: 1968 095 
3; 1969 09: 
; 1970 09 
3: 1971 098 
5 Hb 464 099 
; 197 100 
3 1976 101 
3 1975 10 
3; 1976 10 
: 1977 104 
; 1978 105 
3: 1979 2106 
3; 1980 107 
3; 1981 108 
3 b+ 109 
: 198 2110 
3: 1984 2111 
; 1985 site 
: 1986 211 
; 1987 2114 
21 20 3A 6E 69 67 72 
67 72 61 


61 6D 3! 74 66 65 6C 24 OQO2ZTE 
6D 20 74 68 67 69 72 20 2 6 4C 55 b05¢e 
4C 55 21 20 SA 6€& 69 0023¢ 


F 10 

1e-8ep-198e 19:17:94 — EDeBUG. SRCSDBGNSHOW.B 53s 
PL OeAL ROUTINE DBGSNSHOW_MARGINS : NOVALUE = 
} FUNCTION 
This routine implements the SHOW MARGINS command. 
INPUTS 
The global variables DBGSSRC_LEFT_MARGIN and DBGSSRC_RIGHT_MARGIN. 
OUTPUTS 
Margin settings are displayed at the terminal. 
! 


BEGIN 

Set up the output buffer 

dbg$flushbuf(); 

dbg$print (UPLIT BYTE(ZASCIC ‘left margin: !UL , right margin: !UL"), 
-dbg$src_left_margin, .dbg$src_right_margin); 

dbg$newline(); 


END; ! dbg$nshow_margins 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
P.ACS: .ASCII \S$left margin: !UL , right margin: !UL\ 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 


0000 00000 «ENTRY DBGSNSHOW_ MARGINS, Save nothing 
00000000G 00 00 FB 00002 CALLS #0, DBGSFCUSHBUF 
000000006 00 pd 00009 PUSHL DBGSSRC_RIGHT MARGIN 
000000006 00 DD 0000F PUSHL DBGSSRC~LEFT_MARGIN 
00000000' ai oF 90015 PUSHAB P.AC 
000000006 00 3 FB 0001B CALLS #3, DBGSPRINT 
000000006 00 00 FB 9008 CALLS #0; DBGSNEWLINE 


; Routine Size: 42 bytes, Routine Base: DBGSCODE + 10BD 


ne 


| 
L 


dbg$print (UPLIT BYTE(ZASCIC ‘max_source_files: !UL"), 
g$src_max_files);~ 
dbg$newline(); 


END; ! dbg$nshow_max_source_files 


| GNSH 1f-40 $ep-1984 02:04:20 AX-11 Bliss-32 V4.0-7 
iter te 12-8 08-1 3b 9g 06:60 DEBUG.S Ai SSeanswon 8536 1 
; 1989 115 1 GLOBAL ROUTINE DBGSNSHOW_MAX_SOURCE_FILES : NOVALUE = 
; 1990 118 1 lee 
: 133) 1 : FUNCTION 
; 1998 119 } This routine implements the SHOW MAX_SOURCE_FILES command. 
; 1995 1 INPUTS 
; 1997 § The global variable DBGSSRC_MAX_SOURCE_FILES. 
: $800 ; OUTPUTS 
: 1 1 1 i The value is displayed at the terminal. 
: 2008 158 1 | cam or 
; 200 129 1 i- 
3 2004 130 ” BEGIN 
; 2005 131 
: 4 : § } Set up the output buffer 
> 200 134 dbg$flushbuf(); 
; 200 135 
ee 136 
eo 137 
s § 2138 § 
3 $1 9 
F . 140 1 


ooooo 

pa Sor Deer Serer 
fwnC0an 
SEAN 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


6C 69 66 SF 65 63 72 75 6F 73 SF 78 61 6D 15 00243 P.ACT: .ASCII <21>\max_source_files: !UL\ 
4C 55 21 20 3A 73 65 00252 
-PSECT DBGSCODE,NOWRT, SHR, PIC,0 
0000 00000 ENTRY > gg MAX_SOURCE_FILES, Save nothing 

000000006 00 00 FB 00002 CALLS #0, DBGSFCUSHBUF 

00000009G 00 dD 00009 PUSHL DBGSsRe MAX SPILES 

00000000° EF 9F OO00F PUSHAB  P.AC 
000000006 00 f FB 00015 CALLS #2, DBGSPRINT 
000000006 00 00 FB Beets CALLS #0, DBGSNEWLINE 

04 0002 RET 


; Routine Size: 36 bytes, Routine Base: DBGS$CODE + 10£7 


roe 


<z | 


Fe 
83 


; O16 141 
3; 201 196 
5 3i8 14 
3::201 144 
; 2020 145 
3; 2021 148 
; 20 § 14 
; 20 148 
3; 2024 149 
3; 2025 150 
3; 20 $ 151 
; 20 1 ¢ 
; 2028 1 

3; 2029 154 
3; 20350 155 
3; 2031 128 
3 O36 15 
3 soe 158 
3; 2034 159 
; 2035 2160 
3; 2036 2161 
3; 2037 $166 
; 2038 216 
; 2039 2164 
; 2040 165 
3: 2041 166 
3 ok 167 
3 204 2168 
3: 2044 2169 
; Spee 2170 
3: 2046 2171 
3: 2047 $176 
3; 2048 217 
3; 2049 2174 
; 2050 2175 
3; 2051 2176 
; $036 2177 
: 205 178 
3 2054 179 
3; 2055 180 
3; 2056 181 
3; 2057 13 
3; 2058 218 
3; 2059 Yt 
:; 2060 185 
3; 2061 186 
3 4) 187 
; 206 188 
3 2064 189 
: $e Hi 
: 8] 136 
3; 2068 19 
3 2069 194 
3; 2070 195 
; 2071 138 
3; 2072 19 
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1e-e8- 1 8he 95:95:38 a Ose ae Me Ose age 8) 
GLOBAL ROUTINE DBGSNSHOW_OUTPUT (FULL_REP) : NOVALUE = 


FUNCTION 
This routine prints the Sutpet for the SHOW OUTPUT and SHOW LOG 
e 


H 
} 
: commands. The output for the SHOW LOG command is a subset of the 
: output for the SHOW OUTPUT command, for which reason both commands 
are handled in the same routine. 
i INPUTS 
FULL_REP = Equals 1 for a SHOW OUTPUT report and equals 2 for SHOW LOG. 
i OUTPUTS 
NON 
BEGIN 
DEFLOG_NAME = UPLIT BYTE (‘DEBUG.LOG'), 
DEFLOG_SIZE = ZCHARCOUNT ('DEBUG.LOG'); 
CAL 
FNAME _LEN, ! Length of log file's file name 
FNAME _PTR; ! Pointer to log file's file name 


If a SHOW OUTPUT command was entered, we print the full representation of 
the output settings. We start by printing the settings of the VERIFY, 
TERMINAL, and SCREEN_LOG switches. 

FULL_REP 


BEGIN 


Ot ee me 


fF. 
HEN 


Print the ‘verify’ or ‘‘noverify’ switch setting. 
iv NOT .DBG$GB_DEF_OUTCOUT_VERIFY] 

DBGSPRINT(UPLIT BYTE(ZASCIC ‘no'), 0); 
DBGSPRINT(UPLIT BYTE(ZASCIC ‘verify, '), 0); 


: Print the “terminal” or ‘‘noterminal" switch setting. 
if NOT .DBGS$GB_DEF_OUTCOUT_TERM] 

DBGSPRINT(UPLIT BYTE(ZASCIC ‘no'), 0); 
DBGSPRINT(UPLIT BYTE(ZASCIC ‘terminal, '), 0); 


Print the ‘’screen_log’’ or ‘‘noscreen_log’’ switch setting. 
if NOT .DBG$GB_DEF_OUTCOUT_SCREEN) 


AAAAAAA NANA AANA AANA AAAI AIRS PIPPIN PUPP NINIPOPUNINPINAINPUNID 2 9 9 OO SS SS Se 


[ 


c 


Dt 
vi 


<= 
ee 
Sasa 33 

| 


ooo 
@ 
oO 


081 


See Se Se Se Oe Se Se SH He Se Ge Se Ss Se Se Be Se Se Se Se Ge Ge Se Se 5 oe Se Se Oe SESH Ss Se SH Se Sees 
So 
~o 
—s 


POPOPONSNOPEPoNNoNsMNoNoNngNnoNnoNnony 


at I OOOOOO 
HSSSHSSSESSSSSSIIISS 


>. 


rmorororororoTropororonsporororororny 


WAAAN AAI POPURIPINDNONINIDYD 2 2 MOO OOOOCOOCOOWOW 
AP WMI OOS NOUS OOO NAME MIM OOo MRO ee 


POPOPEPOPOPOPOPOPoNoNoNononononpofnonofpory 


POPOPOROPOPPONONoNoPoNononononononofponony 


20 2c 


20 2C 67 6F 
44 41 21 20 6F 74 


47 
20 
6C 
6c 
20 


10 
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THEN 
DBGSPRINT(UPLIT BYTE(ZASCIC ‘no'), 0); 
Patented BYTE(ZASCIC ‘screen_log, '), 0); 


Now print whether we are Logging or not and print the name of the current 
log file. If log file has been specified, we report the file name in the 
NAF block; otherwise, we use the default log-file file name. Note that 
this output is done for both the SHOW LOG and SHOW OUTPUT commands. 


etc wre msec 


fj POOSGL LOGE ABCFABSU_IFI3 LEQ 0 
BEGIN 
FNAME_PTR = DEFLOG_NAME; 
FNAME _LEN = DEFLOG_SIZE; 
END 
BEGIN 
FNAME _PTR = .DBGSGL_LOGNAMCNAMSL_RSA); 
ERA LEN = .DBGSGL_LOGNAMCNAMS$B_RSLJ; 


IF NOT .DBG$GB_DEF _OUTCOUT_LOG) 
DBGSPRINT(UPLIT BYTE(ZASCIC ‘not '), 0); 
DBGSPRINT(UPLIT BYTE(ZASCIC ‘logging to !AD'), .FNAME_LEN, .FNAME_PTR); 


Finally close out the print Line and return. 
DBGSNEWL INE (); 
RETURN; 


END; 


-PSECT DBGSPLIT,NOWRT, SHR, 


4F 4C 2E— 47 55 42 45 44 00259 P.ACU: .ASCII \DEBUG.LOG\ 
6F $f f 0 oe P.ACV: .ASCII <2>\no\ 
2C 79 66 69 72 65 76 0 0265 P.ACW: .ASCII] <8>\verify, \ 
GF GE 02 OOCGE P.ACK: ASCII <¢>\no\ 
61 6€ 69 6D 72 65 74 OA 1 P.ACY: .ASCII <10>\terminal, \ 
6F $f 2 QO27C P.ACZ: .ASCII <2>\no\ 
SF 6€ 65 65 72 63 C QO27F P.ADA: .ASCII <12>\screen_log, \ 
9 74 «46F O6E Be O28C P.ADB: .ASCII] <4>\not \_ 
67 6— 69 67 67 6F 6C OE 00291 P.ADC: .ASCII <14>\logging to !AD\ 
DEFLOG_NAME= P.ACU 
DEFLOG_SIZE= 9 


iss-32 V4.0-742 
DEBUG. SRC JDBGNSHOW.832; 1 


PIC,0 


roe 


7% Be Se Oe Oe Se Be Be Oe Ge Be Be Se Be Be Be Be Se Se Se Be Se Se Se Ge FH Be Se Se Se Oe Se Se Se Se Se Se SH Se Se Se SH Oe Se Oe Oe Se SH Se SH Oe HSH Se Se Be ae <o 
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3; Routine Size: 


147 bytes, 


rr 10 
16-Sep 
14-Sep 


007C 00000 
g 000000006 68 9E BROS 
000000006 00 9€ 0000 
4 00000000" EF 43 0 19 
4 04 AC €9 0001 
07 g6 E8 00018 
E 04 sith 
54 DD 000 
“ 7E pe Oo095 
03 A4 OF 60 
65 02 Fe QO02A 
08 FF AG EB 00020 
7E D4 388 1 
OC AS YF 00033 
65 02 FB 00036 
7E 04 00039 
OF AS 9F 00038 
65 02 FB OO03E 
08 01 A6 E8 00041 
7E 04 00045 
1A AS ODF (00047 
65 02 FB 0004A 
7E 04 00040 
1D A& YF QO04F 
65 02 FB 30038 
000000006 00 85 0005 
09 12 00058 
2g F7, AS SE «00050 
5 09 00 00061 
OF 11 00064 
50 000000006 00 DO 00066 
2§ 04 AQ 00 00060 
5 03 AO 9A 00071 
08 FE A6 €E8 00075 
7E 04 00079 
2A =AG «OF 00078 
65 02 FB OO07E 
52 0D 00081 
53 0D 00083 
2F = AS «OOF «00085 
65 03 FB Boas 
000000006 00 00 FB 00088 
04 00092 
Routine Base: DBGSCODE + 1108 
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»PSECT 
-ENTRY 
MOVAB 


2 93:95:82 


AX-11 Bliss-32 V4.0-742 
DEBUG. SRC JDBGNSHOW.B32; 1 


DBGSCODE,NOWRT, SHR, PIC,0 
DBGSNSHOW OUTPUT. Save R2,R3,R4,R5,R6 
0BG$GB DEF _O R6 

DBGSPRINT 

P.ACV i’ 

FULL Veep 

DBGStB_ Der. ‘Sure2, 


He} DBGSPRINT 
BGSPRINT 

FB, SbBcsoRINT 2$ 

=(SP) 

PACK 

arn DBGSPRINT 

Wee “SBGSPRIN 

aCease- DEF MOUTss, 3$ 
AC? 

Hy} DBGSPRINT 


Wee DRGs PRINT 
DBGSGL LOGFAB+2 


DEFLOG_NAME, FNAME_PTR 
#9, FNAME_LEN . 
DGSGL _LOGNAM, RO 
4(R0), FNAME. PTR 
3(RO) E~LEN 
DBGSGB_ DEF fT 7$ 
ADB 

AS inQOSSRrINT 
ENARE “LEN 


os, OOBGSPR RINT 
#0; DBCSNEUL INE 


; 


) 
Vv 
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GLOBAL ROUTINE DBGSSHOW_RADIX(OVERRIDE_FLAG): NOVALUE = 


FUNCTION 
Displays the radix that was set by SET RADIX or SET RADIX/OVERRIDE. 


<9 


i 
i 
! INPUTS 

OVERRIDE_FLAG = 1 if SHOW RADIX/OVERRIDE was specified 
i 


OUTPUTS 
The radix setting is written to the output stream. 


RADIX; 

ROUTINE DISPLAY_RADIX (IN_RADIX) : NOVALUE = 
BEGIN 

LOCAL 


RADIX; 
RADIX = DBGSNGET_TRANS_RADIX (.IN_RADIX); 
CASE RADIX FROM”DBGSK-DEFAULT TO"DBGSK_HEX OF 


SE 
COBG$K_BINARY): 

DBGSPRINT (UPLIT BYTE( Z%ASCIC ‘binary')); 
COBG$K_OCTALJ: 

DBGSPRINT (UPLIT BYTE( ZASCIC ‘octal')); 
COBGS$K_DECIMAL): 

DBGSPRINT (UPLIT BYTE (%ASCIC ‘decimal')); 
CDBG$K_HEX): 

DBGSPRINT (UPLIT BYTE (ZASCIC ‘hexadecimal')); 
CINRANGE, OUTRANGE J: 
= $DBG_ERROR( ' DBGNSHOW\DBGSSHOW_RADIX'); 


POPUPOTURORNOPONoTonNoPornoporonsn 


PAAAASAAAASMIMAMNM MINIS BEBE EE EAI 


VIFWN—O OONOVUESWN—"OOONOULS wr 
BNAOUESWN 0 OONOAUES WN OOS NOU EWN OO OONO 


MAN NWANAAWAANIAIANIAAAIAINIINNDY 2 8 SS SS SS 
-@ 
om 
og 
> 
rs 


err FA at Re tee et ah tN ee ae ee Ne ter ney pen 


fwn—O0on 


RoPononononononofnonononony 


MORMOPONONoPoNoNoPoNoNononoforncny 
Mronononofnononononofnofrororoer 


END; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 
ADD: .ASCII < totes | ty 


61 6E 69 06 00240 P : 
6C 61 74 63 6F O05 4 A7 P.ADE: .ASCII <5>\octal 3 
6C 61 6D 69 63 65 64 O7 OO2AD P.ADF: .ASCII <7>\decimal\ 3 
6C 61 6D 69 63 65 64 61 78 65 68 08 002B5 P.ADG: .ASCII <11>\hexadecimal\ ; 
53 26 47 42 46 SC 57 4F 48 53 4E 47 42 44 17 0Q02C1 P.ADH: .ASCII <23>\DBGNSHOW\<92>\DBGSSHOW_RADIX\ : 
58 49 44 41 52 SF 57 4F 48 00200 : 
.PSECT DBGSCODE.NOWRT, SHR, PIC,O 
0004 00000 DISPLAY_RADIX: 
.WORD Save R2 : 2250 
52 00000000' EF 9E 0000 MOVAB P.ADH, R2 3 
04 AC DD 0000 PUSHL IN_RADIX > 2254 
000000006 00 1 FB 990¢ CALLS #1; DBGSNGET_TRANS_RADIX ; 
OF 0 CF 0001 CASEL RADIX. 1, #75 : 2255 
0020 it 0 ‘ 68 8 0017 1$: : + $,- : 
0037 0020 02 0 OO1F $-1$.- ; 


10 
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0020 00 0 0027 $-1$,- 
tS RR ae 
$-1$,- 
$-1$,- 
4$-1$,- 
+ st 
$-1$,- 
$-1$,- 
$-1$,- 
$-1$,- 
$-1$,- 
$-1$,- 
6$-1$ 
52 DD 00037 2$ PUSHL R2 
01 0d 00039 PUSHL #1 
00028362 8F DD 00038 PUSHL #164706 
000000006 00 03 FB 00041 CALLS #3, LIBSSIGNAL 
04 00048 RET 
DF A2 9F 4 9d 3$ PUSHAB P.ADD 
0D 11 0004C BRB 7 
E6 A2 YF OO04E 4$ PUSHAB P.ADE 
08 11 00051 BRB 
EC Ag 9F 00053 5$ PUSHAB P.ADF 
03 11 00056 BRB 7$ 
F4 =A2 QF 00058 6$ PUSHAB P.ADG 
000000006 00 01 FB 00058 7$ CALLS #1, DBGSPRINT 
04 00062 RET 


Routine Size: 99 bytes, Routine Base: DBGSCODE + 119€ 


BEGIN 

st yrge th ByTE (RASC IE ‘output override radix: ‘)); 
RA $GB_R ADIXEDGGSS -RADIX_OUTPUT_OVER); 

if “Radi NEQ BBGSK DEF AUL 


DISPLAY_RADIX(.RADIX) 


COnNOu 


3 2145 2269 2 IF NOT .OVERRIDE_FLAG 

> 2146 2270 THEN 

> 2147 2271 BEGIN 

3 2148 3072 ADIX = .DBG$GB_RADIXCDBG$B_RADIX_ INPUT); 

> 2149 227 DBRePRINT CSE ST BYTE CEASE SCIC™* input radix : ')); 
: 2190 3374 DISPLAY RADIX (.RADIX); 

: 2151 2275 DBGSNEWL INE (); 

3 3132 2276 RADIX = .DBG$GB_R DIXCDBGSB _RADIX_OUTPUT_OVER]; 
3 3133 377 IF RADIX EQL DBGSK.D DEFAULT 

; $iee 2279 ADIX = .DBGS$GB_RADIXCDBG$B_RADIX_OUTPUTI; 

: 136 380 DBGSPRINT CUPLIT BYTE(ZASCIC ‘output radix: )5; 
: 215 1 DISPLAY_RADIX (.RADIX 

; 138 38¢ IF . DBGSGB_RADIXCDBG$B_RADIX_OUTPUT_OVER] NEQ DBGSK_DEF AULT 
: 2160 284 DBGSPRINTCUPLIT BYTE(ZASCIC * (override)')): 
> 2161 385 DBGSNEWL INE () 

3 166 56 END 

3: 216 8 ELSE 

3 2164 88 

3 216 89 

3; 216 90 

: 216 91 

3: 216 38 

3; 216 29 


o 
F 
. 
o 
. 
c 
o 
a 
o 
a 
e 
o 
. 
: 
. 
a 
e 
e 
. 
. 
. 
. 
o 
o 
. 
. 
a 
o 


ref 


; 2266 


; 2258 
; 2260 
; 2262 
; 2264 
; 2268. 


<o | 


Bete Se Se Se Se Oe Se SH Se Be Oe Ge Se Se Se Se Se Se Se Se Se SHS Se Se SH Se SH Oe Se Be SH Se Se ae 
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LSE 
DBGSPRINT(UPLIT BYTE(ZASCIC ‘none')); 
DBGSNEWLINE(); 
END; 
END; 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


61 72 20 74 75 70 6 69 OF 00209 P.ADI: .ASCII <14>\input radix : \ ; 
rg ¢ 4 13 70 74 7? ¢f OE 0 Eg P.ADJ: .ASCII <14>\output radix: \ : 
56 FE Fe £8 9 G8 GP TF Beet pape: ASE] SUN loverrioenk aia: | 
e H ° Output overricge radix: s 
a ae 64 61 72 20 65 90312 < : 
65 6€ 6F 6E€ O04 O0031B P.ADM: .ASCII <4>\none\ : 
.PSECT DBGSCODE,NOWRT, SHR, PIC,0 
00FC 00000 .ENTRY DBGSSHOW_RADIX, Save R2,R3,R4,R5,R6,R7 : 2236 
57 98 AF 9E 00002 MOVAB DISPLAY_RADIX, R7 : 
26 000000006 00 9€ 00006 MOVAB DBGSNEWCINE, R6 ; 
55 000000006 00 9€ 0000D MOVAB ODBGSPRINT, : 
54 000000006 00 9€ 00014 MOVAB DBGSGB_RADIX+2, R4 : 
53 00000000° EF 3 00018 MOVAB P.A : 
32 04 AC E 90022 BLBS OVERRIDE FLAG, 2$ 3 2269 
6 FE AG 9A 00026 MOVZBL DBGS$GB_RADIX, RADIX + 227 
53 DD OO02A PUSHL R + 227 
65 o4 FB 0002C CALLS #1, DBGSPRINT : 
2 DD 0002F PUSHL RADIX > 227% 
67 01 FB 00031 CALLS #1, DISPLAY_RADIX : | 
66 00 FB 00034 CALLS #0, DBGSNEWL INE : 2275) 
52 64 9A 00037 MOVZBL DBG$GB_RADIX+2, RADIX : 2276 
01 52 D1 OO03A CMPL RADIX, “#1 : 2277 
04 12 0003p BNEQ : | 
52 FF Ad 9A 0003F MOVZBL DBG$GB_RADIX+1, RADIX : 2279. 
OF A3 9F 00043 1$: PUSHAB P.ADJ > 2280 | 
65 01 FB 00046 CALLS #1, DBGSPRINT F 
2 DD 00049 PUSHL RAD : 2281 
67 07 FB 00048 CALLS #1, DISPLAY_RADIX ; | 
01 64 91 O004E CMPB  DBGSGB_RADIX+2, #1 : 2282 
20 13 0051 BEQL : 
1E AS’ 9F 00053 PUSHAB P.ADK : 2284 
18 11 90096 BRB $ ; 
2A «AS «OOF 00058 28 PUSHAB P. > 2289 
65 01 FB 0005B CALLS #1, DBGSPRINT : 
52 4 9A 0005E MOVZBL DBG$GB_RADIX+2, RADIX : 3290 
01 é D1 9061 CMPL RADIX, “#1 : 2291 | 
3 00064 BEQL 3 
é Dd 00 PUSHL RADIX : 2293 
67 0 re 6 CALLS #1, DISPLAY_RADIX ; 
06 1 B BRB 5$ : 
42 AS OOF 3$: PUSHAB P.ADM > 2295 
65 or FB 00070 4$: CALLS #1, DBGSPRINT F 
66 0 FB 00073 5$: CALLS #0, DBGSNEWLINE > 2296 
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04 00076 RET : 2298 
; Routine Size: 119 bytes, Routine Base: DBGSCODE + 1201 


aco 


3: 2175 $$35 1 END ! End of module 
: 2176 00 0O ELUDOM 
-EXTRN LIBSSIGNAL 
: PSECT SUMMARY 
: Name Bytes Attributes 
: DBGSPLIT 800 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(O) 
; DBGSCODE 4728 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(O) 
; Library Statistics 
; woceee== Symbols -<------ Pages Processing 
; File Total Loaded Percent Mapped Time 
: ~$255$DUA28: CSYSLIBILIB.L32;1 18619 15 0 1000 00:01.9 
3 ~$255$DUA28: CDEBUG.OBJ JSTRUCDEF 3¢51 0 0 7 00:00.1 
: 7$255$DUA28: (DEBUG. 0BJ JDBGLIB.L32;1 1545 46 2 97 00:02.0 
3 “$255$DUA28: DEBUG. 0B) DSTRECRDS.L32;1 
: 418 1 0 31 00:00.4 
; ~$255$D0UA28: (DEBUG. 0BJ]DBGMSG.L32;1 386 15 3 22 00:00.3 
; _$255$DUA28: (DEBUG.OBJ JDBGGEN.L32;1 150 8 5 12 00:00.3 
s COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, Init JAL,OPTIMIZE)/LIS=LIS$:DBGNSHOW/OBJ=0BJ$:DBGNSHOW MSRC$:DBGNSHOW/UPDATE = (ENH$ : DBGNSHOW) 
sizes 4728 code + 800 data bytes 
un Time: 1:21.2 


nthe Time: 3:51.46 
Lines/CPU Min 1699 
Lexenes/CPU-Rin: 11570 
"Y Used: 541 pages 

eens ation Complete 
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